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Preface 


This report contains a description of the 
prograituning system developed to prepare the data 
from the UNH (University of New Hampshire) gamma 
ray monitor on OSO-7 for scientific analysis. In 
order to help understand the reasons for our 
particular type of program development, this 
short preface will describe, from a scientific 
point of view, the detector, the data, and the 
objectives of the scientific analysis. 

The gamma ray monitor consisted of a 7.6 cm 
X 7.6 cm Nal scintillator-photomultiplier central 
detector. This detector was covered on all sides, 
except for a forward aperture, by a 5 cm thick Csl 
scintillator shield. This shield acted as a 
collimator for gamma rays and also rejected direct 
charged-particle counts. The instrument was on 
the wheel section of OSO, which was spinning in a 
plane that always included the sun with a 2-second 
period. Data was taken during two 0.5-second 
intervals when the detector was "looking" at the 
sun and directly away from the sun. These two 
intervals were called the "solar" and "background" 
quadrants . 

A small X-ray detector was also included in 
the instrument and data was taken from this in the 
same two quadrants. 

The most important information from the 
monitor consisted of the two 370-channel pulse 
height spectra. Data in these spectra was 
accumulated over a 180-second time interval when 
the detector was pointing in the solar and back- 
ground quadrant. Analysis of this data required 
that the channel numbers in the pulse height 
spectra be calibrated with an incident gamma ray 
of known energy. This calibration was accom- 
plished twice per orbit when a radioactive 
source (RS cal) was gated into the detector 
instead of the normal spectrum. Therefore, the 
sets of pulse height spectra, the RS calibration 
spectra, counting rates from the various shield 
elements and the X-ray detector, and house- 
keeping measurements constitute the data that 
must be analyzed. 
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Data from the experiment was received in two 
ways: "quick look" data and experimenter tapes. 

"Quick look" data consisted of raw data received 
from a few selected orbits each day and was 
promptly sent to UNH via a telephone line. The 
experimenter tapes consisted of semiprocessed 
and cleaned-up data containing all of the infor- 
mation received from the experiment. The 
experimenter tapes were the prime data source 
for all scientific analysis. 

Two pieces of hardware were used to process 
this data; a Varian 620/i mini-computer and the 
University’s IBM-360-H50 computer. The Varian 
620/i was used to process the quick look data for 
operational and engineering uses. As we will see 
below, it is used in the ongoing analysis of the 
fully processed prime data from the experimenter 
tapes. The IBM-360-H50 was used to process the 
experimenter tapes and to prepare new tapes con- 
taining data which could be more closely analyzed 
on the Varian. This report contains a description 
of the final procedure and programs used to 
reduce the original experimenter data. 

The experimenter tapes were processed in 
several passes. These include: 


Pass-I - strips off the X-ray and raw main 

frame (MF or central detector) data 
for use on the Varian 620. It also 
removes the calibration (RS) spectrum 
and provides various engineering and 
operational outputs . 

Cal 1 - processes the RS calibration spectra 

for visual inspection and for use 
in Cal 2 . 

Cal 2 - provides a continuous gain calibration 

function versus time from Cal 1 and a 
manual input. This output allows us 
to calibrate all the central detector 
spectra that were taken between the 
RS calibrations . 

Pass-Ill - provides standardized and gain-cor- 
rected spectra for use on the 
Varian 620. Numerous geophysical and 
S/C parameters are also added to the 
data in this pass. 

Subprogram Feeder was used to read the experimenter 

tapes in Passes I and III. • 


ii 



The magnetic tape output of Pass -I I I con- 
stitutes the prime data bank that will be used in 
most of the scientific analysis efforts with the 
data from the gamma ray monitor. This scientific 
analysis, in brief, consists of selectively 
summing together numerous spectra in a search for 
gamma ray sources and events. The selection pro- 
cess consists of using only data in the proper 
time interval and with the proper geophysical and 
S/C parameters. The objective of the selection 
process is to maximize the gamma ray signal while 
minimizing the gamma ray background. As mentioned 
before, the selection process is carried out on 
the Varian 620/i computer. 

The programs described in this report are 
the result of several false starts and many modifi- 
cations. These final programs, however, have 
accomplished their aim very well indeed as the 
current analysis efforts using the final outputs 
continue to show. 


David J. Forrest 
Principal Scientist 
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1. Introduction 


A. Assumptions that influenced the organization 
of this report 

It is assumed this report will primarily be used as a 
reference by individuals concerned with developing pro~ 
grams to analyze data from the UNH gamma ray monitor on 
the OSO-H spacecraft. Such individuals are assumed to 
be familiar with the Fortran programming language, and 
thus will recognize the meaning of the Fortran expressions 
used in this report to define the output of subprogram 
FEEDER. Also assumed is cognizance of the types of data 
produced by the UNH gamma ray monitor , of the manner these 
data are read onto the spacecraft's tape recorders, and of 
the types of auxiliary information merged by GSFC proces- 
sing of OSO-H data. 


This report is presented in order of increasing detail. 

The balance of this introduction reviews the objectives 
of subprogram FEEDER. Section II summarizes the categories 
of feeder's output as well as the types of commands a 
calling program must issue to obtain this output. The 
same information is provided in more detailed form in 
Sections IV and V. 


B. Motivation for creating subprogram FEEDER 

Experimenter Decomm tapes provided by GSFC are not con- 
veniently organized for output to Fortran programs 
executed by an IBM-360 computer. About 15 percent of the 
words on the Decomm tapes are subdivided into bit-length 
fields. To separate these fields , the. 0/S Assembler 
language is easier to code and develops a more efficient 
program. But perhaps the major inconvenience stems from 
the conflict between the octal organization of data on 
the Decomm tapes and the hexadecimal organization of 
IBM-360 computers. Floating point words on the Decomm 
tapes have the 3 6 -bit IBM-7094 format. Short integer 
words on the tapes have only 12 bits, as opposed to 16 
bits for an IBM-360. When a Decomm tape is read by an 
IBM— 360, the choice is between the evils of word misalign- 
ment and of word fragmentation. These inconveniences are 
compounded by the word fragmentation built into the read- 
out mechanism of the UNH gamma ray experiment package. 
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Subprogram FEEDER is designed to cope with many of the 
difficulties that result from the inconvenient format of 
Decomm tapes. Bit-length fields are separated. Floating 
point words are converted to one of the IBM-360 formats. 
Experiment word fragments are spliced together and realigned 
to meet IBM- 3 60 requirements. 


C. Guidelines used in developing subprogram FEEDER 

A major consideration in designing subprogram FEEDER 
was maximizing the ease of changing programmed strate- 
gies to identify, to interpret, to accept for analysis 
or to edit data from the Decomm tapes. All of these 
judgment-making activities are necessarily performed 
to some degree, by any program analyzing Decomm data. 

To obtain data from the tapes, these analysis programs 
will presumably utilize subprogram FEEDER, a moderately 
lengthy set of routines written in Assembler language. 

To facilitate changing tactics, FEEDER simply stays out 
of the judgment-making process to the extent possible. 
FEEDER deletes nothing from the UNH data or from any 
identifiers, flags, or associated parameters that per- 
tain to UNH data words. (Sail subcom data and non-UNH 
data from the digital and wheel analog subcoms are the 
only information always deleted by FEEDER.) Although 
this design feature places the burden of judgment- making 
solely on programs calling FEEDER, these programs will 
presumably be written in Fortran and thus be easier to 
modify. 

Minimizing CPU time was another consideration in de- 
signing subprogram FEEDER. The use of Assembler lan- 
guage in itself allows a major reduction of CPU time. 

In addition FEEDER has built-in options that allow it 
to run at reduced work loads by ignoring types of data 
not needed by a calling program. 

FEEDER performs a variety of services intended to help 
designers of calling programs. Data observation times 
are presented as a continuous parameter (seconds of cen- 
tury) to remove the necessity of constantly checking for 
end-of-day condition or for end-of-year condition. 

FEEDER constantly checks the data stream for discontinui- 
ties and indicates their presence or absence to calling 
programs. Other interruptive conditions are monitored 
and their existence reported to calling programs. Al- 
though FEEDER avoids determining whether and how to edit 
the data, it is designed to cooperate in certain editing 
activities. In addition, FEEDER performs a major re^ 
shuffling of data from Decomm tapes in an effort to more 
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closely simulate the manner information is read out onto 
the spacecraft's tape recorders. Information from file 
label blocks and from orbit data blocks are shunted into 
storage areas while the Decomm data blocks are divided 
into "half-blocks" representing major frames. Conse- 
quently, the data stream appears to calling programs to 
be a sequence of major frames, with pertinent file label 
information and pertinent orbit data available on request. 
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II. An Introductory View of Subprogram FEEDER 


A. Summary of Decomm tape organization 

Each recording (via telemetry) of data stored on one 
of the spacecraft's tape recorders will normally produce 
one file of data on an experimenter’s Decomm tapes. 

The quantity of data in any one Decomm file is thus re- 
stricted to the capacity {about 108 minutes) of the 
spacecraft's tape recorders. Decomm tapes sent to ex- 
perimenters will typically contain several files of data. 
Presumably these files will be in chronological order. 




\ 

\ 

\ 


Fig. II. A. 1 Fig. II. A. 2 

Organization of a Arrangement of Data Blocks 

Decomm Tape Volume Within a File of a Decomm Tape 

Figures II. A. 1 and II. A. 2 (above) show the data stream en- 
countered by reading forward on a Decomm tape. Subprogram 
FEEDER rearranges the data stream to appear as a series of 
half-blocks. The first half-block from a file is indicated 
by a flag and the first half-block from a tape is indicated 
by an additional flag. Upon request FEEDER can supply in- 
formation from either of the last two file label blocks it 
has read. FEEDER can also retrieve orbit data values upon 
request. 
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B. Summary of data subprogram FEEDER supplies to a 
calling program 

Subprogram FEEDER supplies information to a calling 
program through 5 named COMMON blocks referred to in 
this report as "windows". 

1 . The HEADER window 
COMMON/HE ADE R/ 1 i s t 

When requested, FEEDER will supply information about 
a particular file in the common block denoted by 
the symbol HEADER. Information can be supplied 
for either the file currently being read by FEEDER 
or the immediately preceding file, depending upon 
which is requested. The information supplied for 
a particular file includes 

a. All information contained in the label 
record . 

b. A list of sun-entrance and sun-exit times 
taken from orbit data items supplied for 
these events. 

c. Identifiers, such as tape volume name, 
file count. 

d. Time conversion constants, which can assist 
a calling program in computing the time of 
day for a particular data entry. These are 
also the constants used by FEEDER to compute 
data times. 

e. Calendar form of the begin time of file 
and the end time of file. These could be 
useful identifiers for a calling program's 
printout. 

f. Time(s) of ascending node crossing Cs) ob- 
tained by scanning orbit data records. 

2 . The ORBIT window 
COMMON/ORBIT/list 

When requested, FEEDER will supply, for a given 
time t, orbit parameter values for times tj^ , t2, t3, 
and tif such that 1 1 <t2<t<t3<t% . A vector of 4 values 
is returned for each of the orbit parameters. Ordi- 
narily the times t]_, \- 2 , t3,. and tij will be one minute 
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apart. It is possible, of course, for the calling 
program to request orbit data for a time t that is 
either near an extreme limit of available data or 
outside the range of available data. In the former 
case, FEEDER will post a flag indicating the times 
of the data returned are "off center" (,t<t 2 or t>t 3 ) . 

In the latter case, an "out-^of-range" flag is posted 
and the contents of the ORBIT window are left unmodi- 
fied. 

As FEEDER encounters the start of a new file of data, 
it updates the contents of the orbit data storage 
area it manages. However, under normal conditions, 
enough orbit data from the previous file is retained 
to accommodate any requests the calling program is 
likely to make. 

3. The DECISION window 

COMMON/DECIDE/list 

Most of the varieties of data from Decomm data blocks 
are supplied to the calling program via the DECISION 
window. Main frame data (other than the 1st, 2nd, and 
60th of the 64 experiment words) are the only type of 
data not included in the DECISION window. 

The DECISION window contains 30 "panes". Unless modi- 
fied by the calling program, each pane contains infor- 
mation from one half-block on the Decomm tape. Consecu- 
tive half-blocks, including all fill data half-blocks, 
are represented by consecutive panes of the DECISION 
window. The DECISION window is slightly longer than 
the iriinimum 24 panes required to allow correlation of 
data accumulated during corresponding time intervals. 

For example, if T^ and T 2 are the begin time and end 
time for accumulating a full scan, then panes N - 
(N+11) might contain subcom data and attitude data read 
out between Ti and T 2 , while panes (N+12) - (N+23) 
should correspond to half-blocks containing the main 
frame data accumulated between T^ and T 2 . 

Panes 15-30 correspond to half-blocks for which FEEDER 
can supply main frame data on request. FEEDER does 
not keep main frame data corresponding to panes 1-14 
of the DECISION window. 
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Types of data in each pane of the window include; 

a. Pane identifiers 

(1) Starting time (seconds of century) of 
the major frame, if any, represented 
by the pane. 

(2) Pointers to the Decomm tape block from 
which the pane originated. 

(3) A set of flags pertaining to the pane 
which are generated by FEEDER. 

b. Attitude data for the half-block, but only 
if the attitude processing option has been 
specified by the calling program. 

c. Digital subcom data, in two forms, and flags 
pertaining to each word. In one form, the 
x-ray counts are the source values given on 
the Decomm tape. In the other form, x-ray 
counts are corrected for scaling. Digital 
subcom data is supplied only if the digital 
subcom processing option has been specified 
by the calling program. 

d. Analog subcom data words and flags for each 
word. The two words containing command status 
and housekeeping information are always given. 
The remaining 8 words are supplied only if 
the analog subcom processing option has been 
specified by the calling program. 

e. A useful form of the contents of the 1st, 

2nd, and 60th of the 64 main frame experiment 
word fields in the half-block. 

f. Counts of data words flagged. The only words 
counted are those processed by the options 

in effect, 

g. Day-night status as indicated by the main 
frame flag fields on the. Decomm data blocks. 

4 . The SCAN window 

COMMON/SCANS/list 

This window is used by FEEDER, when requested, to supply 
a calling program with main frame data vectors along 
with corresponding flag vectors. If the calling pro-r 
gram had specified complete main frame data during the 
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initial call to FEEDER, FEEDER assumes the SCAN win- 
dow to consist of 16 128— byte data vectors followed 
by 16 128-byte flag vectors. However, if partial main 
frame data had been specified in the initial call, 
FEEDER assumes the SCAN window to consist of 16 8-byte 
data vectors, 16 8-byte flag vectors, and a 3840-byte 
unused area. 

Additional details are given in Section IV. D of this 
report. 

5. The INTERRUPTION Vector 
COMMON/INTRUP/list 

This window contains a collection of flags and other 
information which indicate certain anomalies in the 
data stream have been detected by FEEDER. 


C. Summary of commands that a calling program can issue to 
subprogram FEEDER 

1. The initial command. As the name implies, this must 
be the first command issued and it must be issued 
once only . The calling program must pass information 
to be read during the current job step and the options 
FEEDER is to employ in processing the data. 

When FEEDER returns control, it will have read enough 
of the first file of the first tape to place decision 
data from the first 16 half-blocks of the file in 
DECISION window panes 15-30. 

2. The "advance-DECISION-window-N-panes" command 

Normally information for the N oldest half-blocks 
is lost and the window is filled from the next 32 
half-blocks. In other words, if half-blocks M-(M+29) 
were in the window before the advance, half-blocks 
(M+N) - (M+N+29) will be in the window after a normal 
advance. The main frame data that FEEDER can supply 
(in response to a subsequent request for main frame 
data) is also normally advanced by N half-blocks. Ir- 
regular advances are discussed in Section V.B of this 
report. 

It is important to remember that the information in 
the DECISION window is a copy of corresponding infor- 
mation stored in FEEDER. Thus the calling program 
P^ior to commanding an advance of the window. 
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make alterations in the (N+l)th pane. The original 
contents of this pane would appear in the first pane 
after FEEDER has executed the advance. 

3. The "fetch-ORBIT-data-for-time-T" command 

If available, the desired information is moved to 
the ORBIT window. The success or failure of FEEDER'S 
response is posted in the INTERRUPTION vector. 

4. The "fetch-file-information" commands 

There are 2 commands which may be used, one for the 
most recently started Decomm file and one for the pre- 
ceding Decomm file. Information for the appropriate 
file is moved to the HEADER window. 

5. The "update-DECISION-window" command 

This command allows a calling program to transfer 
edited DECISION window panes to FEEDER'S copy of the 
DECISION window. FEEDER will then review its re- 
vised DECISION window and appropriately reset flags. 

The edited panes will be shifted by subsequent commands 
to advance the DECISION window. 

6. The "update-main-frame-data" command 

This command allows a calling program to transfer 
edited main frame data to FEEDER'S copy of this 
data. The flagged words in the edited version are 
counted and the count is placed in the corresponding 
DECISION window pane for the main frame. 

7. The "delete-half-blocks" command 

This command orders FEEDER to "cut and splice" the 
data stream appearing in the DECISION window. Panes 
to the left of the specified panes are held in pihce, 
the specified panes are lost, panes to the right of 
those specified are shifted to about those held in 
place, and new half-blocks are read to complete the 
DECISION window. 

8. The "skip-N-f ile" command 

For this activity, the Decomm tape file from which 
the 30th pane of the DECISION window originated is 
counted as File 0. The Decomm tape is advanced 
until the first half-block from file N' is in 
pane 15 of the DECISION window. The last 14 half- 
blocks of the preceding file will be in panes 1-14 
of the DECISON window. 
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This command can also be used to go directly to the 
first file of the next tape. In this case no data 
from the last file of the current tape will be avail- 
able in panes 1-14. 

9. The "fetch-main-frame-data" command 

Main frame data corresponding to N consecutive panes 
of the DECISION window are moved to N consecutive data 
vectors in the SCAN window, when 1 ^ N 5. 16. For each 
main frame data word so moved, its flag field is moved 
into the corresponding element of the corresponding 
flag vector. The correspondence of DECISION pane 
numbers to SCAN window vectors is left solely to the 
discretion of the calling program. 



1-12 


III. Suggested Variable Names for Parameters Supplied by 
Subprogram FEEDER 

The variable names listed below were invented primarily to 
facilitate the writing of this report by providing labels for 
the parameters whose definitions are given in Section IV. The 
parameters supplied by FEEDER are defined in the next section , 
one window at a time. For each window, the parameters are pre- 
sented in alphabetical order of suggested variable names. To 
locate a definition, the list on the preceding page shows each of 
the suggested variable names in alphabetical order and asso- 
ciates each name to the common block in which the variable appears. 
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VARBL. 

COMMON 


VARBL. 

COMMON 


VARBL . 

COMMON 

ALTKM 

ORBIT 


HXFS2 

INTRUP 


QOTIMG 

INTRUP 

anxing 

ORBIT 


HXIOE 

INTRUP 


QPANY 

DECIDE 

attdat 

DECIDE 


HXTIMG 

INTRUP 


QPATTP 

DECIDE 

BGAUSS- 

ORBIT 


IHAFN 

HEADER 


QPFILL 

DECIDE 

decmag 

ORBIT 


IHANCI 

HEADER 


QPFILS 

DECIDE 

ERMCIL 

ORBIT 


IHANC2 

HEADER 


QPIOE 

DECIDE 

geolat 

ORBIT 


IHANC3 

HEADER 


QPNITE 

DECIDE 

GEOLON 

ORBIT 


IHATTC 

HEADER 


QPSTAT 

DECIDE 

HDECIS 

DECIDE 

B 

IHBEGT 

HEADER 


QPTAPS 

DECIDE 

HHDAYB 

HEADER 


IHBFN 

HEADER 


QPTIMG 

DECIDE 

HHDAYE 

HEADER 


IHDECN 

HEADER 


QPTWIL 

DECIDE 

HHFILN 

HEADER 


IHDOY 

HEADER 


QPVAC 

DECIDE 

HHHRB 

HEADER 


IHENDT 

HEADER 


QSANY 

INTRUP 

HHHRE 

HEADER 


IHENTN 

HEADER 


QSFILL 

INTRUP 

HHMINB 

HEADER 


IHEXPN 

HEADER 


QSFILS 

INTRUP 

HHMINE 

HEADER 


IHEXTN 

HEADER 


QSIOE 

INTRUP 

HHMONB 

HEADER 


IHMTF 

HEADER 


QSTAPS 

INTRUP 

HHMONE 

HEADER 


IHMTN 

HEADER 


QSTIMG 

INTRUP 

HHSECB 

HEADER 


IHORBC 

HEADER 


QSVAC 

INTRUP 

HHSECE 

HEADER 


IHRN 

HEADER 


QTAPEN 

INTRUP 

hhtapn 

HEADER 


IHSN 

HEADER 


QUIT 

INTRUP 

HHYRB 

HEADER 


IHSTN 

HEADER 


QWANY 

INTRUP 

HHYRE 

HEADER 


IHYEAR 

HEADER 


QWFILL 

INTRUP 

HIDIOE 

INTRUP 


ITEMID 

ORBIT 


QWFILS 

INTRUP 

HIOECT 

INTRUP 


QDANY 

INTRUP 


QWIOE 

INTRUP 

HIXXXl 

INTRUP 

F 

QDECIS 

DECIDE 

B 

QWTAPS 

INTRUP 

HNIOE 

INTRUP 


QDFILL 

INTRUP 


QWTIMG 

INTRUP 

HNTIMG 

INTRUP 


QDFILS 

INTRUP 


QWVAC 

INTRUP 

HPAFN 

DECIDE 


QDIOE 

INTRUP 


QXSFIL 

INTRUP 

HPASF 

DECIDE 


QDTAPS 

INTRUP 


RAMAG 

ORBIT 

HPASSV 

DECIDE 


QDTIMG 

INTRUP 


SUNXAU 

ORBIT 

HPBLKN 

DECIDE 


QDVAC 

INTRUP 


SUNYAU 

ORBIT 

HPDFN 

DECIDE 


QFIOEF 

INTRUP 


SUNZAU 

ORBIT 

HPDSF 

DECIDE 


QHDERR 

INTRUP 


UDECIS 

DECIDE 

HPDSIV 

DECIDE 


QHENT 

HEADER 


UNDAWN 

HEADER 

HPDSSV 

DECIDE 


QHEXIT 

HEADER 


UNDAYl 

HEADER 

HPDTHF 

DECIDE 


QHIOE , 

HEADER 


UNDAY 2 

HEADER 

HPDTHW 

DECIDE 


QHMSGS 

HEADER 


UNDUSK 

HEADER 

HPDTLW 

DECIDE 


QHVAC 

HEADER 


UHLRFP 

HEADER 

HPFILN 

DECIDE 


QHXXXX 

HEADER 

F 

UHSCID 

HEADER 

HP IDF 

DECIDE 


QIXXXl 

INTRUP 

F 

UHTANC 

HEADER 

HPMFN 

DECIDE 


QIXXX2 

INTRUP 

F 

UHTAN2 

HEADER 

HPSCTS 

DECIDE 


QIXXX3 

INTRUP 

F 

UHTVOL 

HEADER 

HPSSUM 

DECIDE 


QIXXX4 

INTRUP 

F 

UIXXXl 

INTRUP 

HPSYNF 

DECIDE 


QOANY 

INTRUP 


UNUSED 

HEADER 

HPSYNW 

DECIDE 


QOCENT 

INTRUP 


UPTIME 

DECIDE 

HPTAPN 

DECIDE 


QOCHNG 

INTRUP 


UREQT 

ORBIT 

HPTWIL 

DECIDE 


QOEOF 

INTRUP 


UTIME 

ORBIT 

HSCAN 

SCANS 

B 

QOFILS 

ORBIT 


XKM 

ORBIT 

HSDATL 

SCANS 


QOIOE 

ORBIT 


XKMPS 

ORBIT 

HSDATS 

SCANS 


QOIOEF 

INTRUP 


YKM 

ORBIT 

HSFLGL 

SCANS 


QOMISS 

INTRUP 


YKMPS 

ORBIT 

HSFLGS 

SCANS 


QONONE 

INTRUP 


ZKM 

ORBIT 

HXFSl 

INTRUP 


QOTGAP 

ORBIT 


ZKMPS 

ORBIT 


«F' DENOTES FILLER VARIABLE. ’B' DENOTES BACKGROUND VARIABLE. 
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IV. A. 


HHDAfB 

HHDAfE 

HHFILN 

HHHRB 

HHHRE 

HHMINB 

HHMINE 


Description of the HEADER window 

1 . Format 

The organization of information supplied via the 
HEADER window is shown in each of Figures IV.A.l, 

IV. A. 2, and IV. A. 3. Figure IV. A. 1 is a chart of the 
window and gives a brief description of each para- 
meter. Figure IV. A. 2 lists suggested variable names 
on a similar chart of the window. Figure TV. A. 3' shows 
the Fortran statement to define the suggested variable 
names . 

For all 5 windows, the HEADER window contains the 
only double word parameters which do not contain a 
floating point number. The parameters are identified 
by the variable names UHSCID and UHTVOL. 

2. Parameter definitions for the HEADER window (in 
alphabetical order of suggested variable names). 

The day count of month in which the file timespan begins, 
based on information in the Decomm file label block. 

The day count of month in which the file timespan ends, 
based on information in the Decomm file label block. 

The value of HHDAfE will differ from that of HHDAfB 
if and only if the label block contains an end time 
of file that is less than the begin time of file. 

The sequence count (starting at 1) of the Decomm file 
within the Decomm tape. 

The hours of the begin day that elapse before the begin 
time of file, based on Decomm file label block infor- 
mation. 

The hours of the end day that elapse before the end 
time of file, based on Decomm file label block infor- 
mation. 


Minutes of the begin hour that elapse before the begin 
time of file, based on Decomm file label block infor- 
mation. 

Minutes of the end hour that elapse before the end 
time of file, based on Decomm file label block infor- 
mation . 
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HHMONB 

HHMONE 

HHSECB 

HHSECE 

HHTAPN 

HHfRB 

HHfRE 

IHAFN 

IHANCl 

IHANC2 

IHANC3 

IHATTC 

IHBEGT 

IHBFN 

IHDECN 

IHDOf 

IHENDT 


Month count of year tl implies January) in which the 
file timespan begins, based on Decomm file label block 
information. 

Month count of year in which the file timespan ends, 
based on Decomm file label block information. 

Seconds after the begin minute that the file timespan 
begins, based on Decomm file label block information. 

Seconds after the end minute that the file timespan 
ends, based on Decomm file label block information. 

The count of the Decomm tape within the sequence of 
tapes read during the current job step. 

The year (4 digits) the file timespan begins, based 
on Decomm file label block information. 

The year (4 digits) the file timespan ends, based on 
Decomm file label block information. 

The analog file number given in the file label block. 

If meaningful, this parameter contains the ascending 
node count from the first orbit data item supplied 
for the Decomm file. IHANCl is meaningful only if 
IHORBC ^0. 

If meaningful, this parameter contains the ascending 
node count from the first "ascending-node— cross ing- 
data-item” in the orbit data supplied for the Decomm 
file. This parameter is meaningful only if IHORBC > 1. 

If meaningful, this parameter contains the ascending 
node count from the second "acsending -node-crossing- 
data-item" in the orbit data supplied for the Decomm 
file. This parameter is meaningful only if IHORBC = 2. 

The type of attitude computations given in the file 
label block. (See Attachment I for details.) 

The begin time of file Cseconds of day) given in the 
file label block. 

The buffer file number given in the file label block. 

Decomm number given in the file label block. 

Day count of year from the file label block. 

End time of file (seconds of day) given in the file 
label block. 
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IHENTN 

IHEXPN 

IHEXTN 

IHMTF 

IHMTN 

IHORBC 

* 

IHRN 
IHSN 
IHSTN 
IHfEAR 
QHENT ( 4 ) 

QHEXIT{4) 

QHIOE 

QHMSGS 


Number of sunlight-entrance times stored in the UNDAWN 
array. 

Experimenter number given in the file label block. 

Number of sunlight exit times stored in the UHDUSK 
array . 

Master tape file number given in the file label block. 

Master tape number given in the file label block. 

IHORBC = -1 implies no ascending node count informa- 
tion is available for the current file. Otherwise 
IHORBC contains the number of changes in the ascending 
node count that appear in the orbit data items. CO, 

1, or 2 are the only possibilities FEEDER will process.) 

Reel number given in the file label block. 

Station number given in the file label block. 

Station tape number given in the file label block. 

/ear (2 digits) given in the file label block. 

QHENT (N) =.TRUE. if and only if UHDAWN CN) was taken 
from an orbit data block on which a permanent I/O 
error occurred. 

QHEXIT(N) =.TRUE. if and only if UHDUSK (N) was taken 
from an orbit data block on which a permanent I/O 
error occurred. 

QHIOE =.TRUE. if and only if and I/O error occurred 
on the file label block. 

QHMSGS =.TRUE. if and only if FEEDER detected 1 or 
more of the following conditions in the array of 
information displayed in the HEADER window. 

1. Contents of UHSCID did not match the value expected 
by FEEDER. 

2. /ear in label block was not in the 1970 's. 

3. Experimenter number was not 3. 

4. Duration of file was greater than the maximum 
expected by FEEDER. 
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QHVAC 
UHDAWN (4) 

UHDAfl 

UHDAY2 

UHDUSK(4) 

UHLRFP (30) 
UHSCID 

UHTANC 

UHTAN2 

UHTVOL 


QHVAC =.TRUE. if and only if the contents of the 
HEADER window contain no meaningful information. 

Array of sunlight -entrance times (seconds of century) 
taken from the orbit data records. The number of 
times stored in the array is given by IHENTN and is 
not expected to exceed 1. 

Time (seconds of century) at 0000 hours of the day 
the file timespan begins, based on Decomm file label 
block, information. This time is used in computing 
all other times supplied by FEEDER for data in the 
file. This time could be helpful to a calling pro- 
gram in converting times given in seconds of century 
to seconds of day. 

Time (seconds of century) at 2400 hours of the day 
the file timespan begins, based on Decomm file label 
block information. 

Array of sunlight -exit times (seconds of century) 
taken from the orbit data records . The number of 
exit times stored in the array is given by IHEXTN 
and is not expected to exceed 1. 

Array of floating point values given in the file 
label block. UHLRFj?(N) contains the value given in 
characters (55+6N) through (60+6N) of the label block. 

Spacecraft identification from the file label block. 
This parameter contains character information which 
can be printed using an A5 Fortran format code. 

(The 3 low-order bytes of this word contain blanks.) 

If meaningful, this parameter contains the time 
(seconds of century) of the first "ascending-node- 
crossing-data-item" supplied for the Decomm file. 

This parameter is meaningful only if IHORBC = 1. 

If meaningful, this parameter contains the time 
(seconds of century) of the second "ascending-node- 
crossing-data-item" supplied for the Decomm file. 

This parameter is meaningful only if IHROBC ~ 2. 

Decomm tape volume name taken from the DD statement. 
This parameter contains character information which 
can be printed using an A6 Fortran format code. 

(The 2 low-order bytes contain blanks.! 
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B. Description of the ORBIT window 

1. Format 

The organization of the ORBIT window is shown in 
Figure IV.B.l and is briefly described here. Before 
requesting orbit data, a calling program must enter 
a request time in the first word (suggested parameter 
name = UREQT) of the window. FEEDER responds, where 
possible, by completing the contents of the window. 

The sequence of parameters in the window is as follows; 

a. Request time (seconds of century) . 

b. A vector of 4 data item times (seconds of 
century) from 4 consecutive data items. Where 
possible, FEEDER will select data item times so 
that the request time falls between the second 
and third of the 4 times. 

c. Seventeen 4 -element vectors containing single- 
precision floating point values. Each vector 
contains values corresponding to the 4 data^time 
times for one of the drbit parameters. The vec- 
tors are in the same order as listed in Attach- 
ment V, with the first vector containing the 
x-component of the satellite position and the 
last vector containing the ascending -node -crossing 
number. 

d. A 4-element full word . integer vector- eohtainiftg 
the type of data item indicators for the 4 data 
items . 

e. Three 4-element single-byte logical vectors 
generated by FEEDER. These vectors contain flags 
pertaining to the data items returned in the win- 
dow. A summary of these flag settings is posted 
in the INTERRUPTION vector whenever a calling pro- 
gram requests orbit data. 

2. Definitions of ORBIT window parameters, by alphabe- 
tical order of suggested variable names 

ALTKM(4) ALTKM(N) is the height (km) of the satellite above the 
spheroid at time = UTIME(N). 

ANXING(4) ANXING(N) is the ascending -node -crossing number at 
time = UTIME (N) . 

BGAUSS(4) BGAUSS (N) is the magnetic field strength (gauss) at 
time = UTIME (N). 
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DECMAG (4) 
ERMCIL(4) 
GEOLAT ( 4 ) 
GEOLON(4) 
ITEMID (4) 


QOFILS (4) 

QOIOE (4) 

QOTGAP ( 4 ) 

RAMAG (4) 
SUNXAU (4) 
SUNfAU(4) 
SUNZAU(4) 
XKM(4) 


DECMAG {N} is the declination (deg) of the magnetic 
field vector at time = UTIME(N). 

ERMCIL(N) is the Mclllwain L parameter (earth radii) 
at time = UTIME (N) . 

GEOLAT (N) is th-a geodetic latitude (deg) at 
time = UTIME (N) . 

GEOLON(N) is the geodetic longitude (deg) at 
time = UTIME (N) . 

ITEMID (N) is the type of data item code for 
time = UTIME (N). 

1 implies regular item. 

2 implies ascending node crossing. 

3 , implies north point item. 

4 implies descending node crossing. 

5 implies south point item. 

6 implies sunlight-entrance item. 

7 implies sunlight -exit item. 

OOFILS(N) = .TRUE, if and only if the data item for 
time = UTIME (N) is the first data item (accepted by 
FEEDER) for a Decomm file. 

QOIOE (N) = .TRUE, if and only if a permanent I/O error 
occurred on the orbit data block containing the data 
item for time = UTIME (N). 

QOTGAR(N)^ .TRUE, if and only if the value of UTIME (N) 
exceeds the value of UTIME (N-1) by more than 
60.001 seconds. 

RAMAG (N) is the right ascension Cdeg) of the magnetic 
field vector at time = UTIME (N). 

SUNXAU (K) is the x-component (AU) of the solar vector 
at time = UTIME (N). 

SUNfAU(N) is the y-component (AU) of the solar vector 
at time = UTIME (N) . 

SUNZAU(N) is the z-component (AU) of the solar vector 
at time = UTIME (N) . 

XKM(N) is the x-component (km) of the satellite position 
vector at time = UTIME CN) . 


XKMFS (4) 


XKMjPS (N) is the x-component (km/sec) of the satellite 
velocity vector at time = UTIME CN). 
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/KM(4) 
fKMPS (4) 
ZKM(4) 
ZKMPS (4) 
URECiT 
UTIME (4) 


fKM(N) is the y-component (km) of the satellite position 
vector at time = UTIME (N). 

fKMPS (N) is the y-component (km/sec), of the satellite 
velocity vector at time = UTIME (N), 

ZKM(N) is the z-component (km) of the satellite posi- 
tion vector at time = UTIME (N). 

ZKMPS(N) is the z-component (km/sec) of the satellite 
velocity vector at time = UTIME (N). 

Time (seconds of century) for which the calling program 
requested orbit data. 

Vector of times (seconds of century) for which FEEDER 
has supplied data items. For N = 1, 2 , 3, UTIME (N+1) 
is always greater than UTIME (N). 
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ATT DAT 


HPAFN 


Hi? ASF 


Description of the DECISION window 

1 . Format 

The organization of the DECISION window is given in 

Figure IV. C. 3^ Figures IV.C.l and IV. C. 2 describe 

the organization of one pane of the window. Figure IV.C.l 

is a chart of a window pane which briefly describes 

the information contained in each parameter. Figure IV. C. 2 

is also a chart of a window pane but which shows the 

assignment of suggested variable names to the parameters. 

The variable names suggested for DECISION window para- 
meters were invented merely to aid in defining the or- 
ganization of the window. Designers of calling programs 
will likely wish to rename these parameters since the 
double subscripting of the suggested variables will 
slow down program execution. 

2. Definitions of parameters supplied by FEEDER in the 
DECISION window 

These definitions are given in alphabetical order by 
the suggested variable names. Throughout these defini- 
tions, the subscript "N" will indicate pan® of the 
of the window. 

ATTDAT(K,N) contains the single-precision form of the 
K'th attitude word for the half-block. (For further 
details, see Figures IV.C.l, IV. C. 2 and Data Format 
for OSO-H Experimenter Tape. ) If the default option 
to omit processing attitude data is taken, FEEDER will 
initialize this array to zero and will not modify the 
contents of the array during program execution. 

The number of analog subcom words for which some flag 
is set. In other words, HPAFN(1,N) contains a count 
of the number of nonzero entries in HPASFCK,N). for 
K = 1,10. 

(Programming note; if HPAFN(1,N) = 0, any examination 
of analog subcom flag settings can be omitted. 

HPASF (K,N) is a collection of flags that pertain to 
the analog subcom word in HPASSV(K,N). If the bits 
of the half-word HPASF (K,M) are designated by 
"OOOOOOOihgfedcba" , where O’s represent unused bits 
(set to zero) and "a" is the least significant bit, 
then : 


bit i = 1 if and only if the sync status of the 

preceding half-block is uncertain because 
the wheel sync word was either missing 
or contained fill data. 
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HPASSV 

HPBLKN 

HPDFN 

HPDSF 


bit h = 1 if and only if a slip in the wheel subcom 
data is indicated for the half-block, 
bit g = 1 if and only if a slip in the wheel subcom 
data is indicated for the preceding half- 
block. 

bit f = 1 if and only if the slip status in the 

wheel subcom is not clearly indicated for 
the preceding half-block, 
bit e = 1 if and only if one or more sync errors 
occurred for the main frame containing 
the subcom word. 

bit d = 1 if and only if one or more sync errors 
occurred for the main frame preceding 
the main frame containing the subcom word, 
bit c = 1 if and only if the sync status of the 
preceding main frame is uncertain., 
bit b = 1 if and only if the main frame containing 
the subcom word is a fill frame, 
bit a = 1 if and only if fill data is supplied 
on the Decomm tape for the subcom word. 

HPASSV (K,N) contains the value of the K'th analog 
subcom word for the half-block. By coincidence, HPASSV (K,N) 
is read out in main frame K and is identified as ASSC 
word K in the report OSO-H Experiment , Description and 
Operation, UNH Gamma Monitor , June 2, 1970. The report 
mentioned above and Figures IV.C.l and IV. C. 2 should 
adequately define the meaning of each of the 10 subcom 
words . 

HPBLKN (1,N) is the count of the block within the Decomm 
file from which the half-block originated. 

The number of digital subcom words in the half-block 

for which some flag is set. In other words, HPDFN (1,N) is 

the count of nonzero entries in HPDSF (K,N) , for K = 1,7. 

(Programming note; if HPDFN (1,N) = 0, any examination 
of digital subcom flags can be omitted.) 

HPDSF (K,N) is a collection of flags that pertain to 
the digital subcom word in both HPDSSV(K,N) and in 
HPDSIV(K,N). If the half-word HPDSF (K,N) is represented by 
"OOOOOOOihgfedcba” where O's represent unused bits 
(set to zero) and “a" is the least significant bit, then: 

bit i = 1 if and only if the digital subcom status 
for the preceding half-block is uncertain 
because of either fill data or missing 
data for the digital subcom sync word. 

bit h = 1 if and only if a slip in the digital 
subcom data is indicated for the half- 
block. 
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HPDSIV 


bit g = 1 if and only if a slip in the digital 

subcoiti data is indicated for the preceding 
half-block. 

bit f = 1 if and only if the slip status for the 
preceding half-block is uncertain, 
bit e = 1 if and only if one or more sync errors 

occurred for the main frame containing the 
subcom word. 

bit d = 1 if and only if one or more sync errors 
occurred for the preceding main frame, 
bit c = 1 if and only if the sync error status 

for the preceding main frame is uncertain, 
bit b = 1 if and only if the main frame containing 
the subcom word is a fill frame, 
bit a = 1 if and only if fill data is supplied 
on the Decomm tape for the subcom word. 

HPDSIV (K,N) is the "interpreted" value of the K’th 
digital subcom word read out in the major frame repre- 
sented by the half -block. Only the x-ray counts are 
interpreted by FEEDER; the time words and the energy 
ID word are left unchanged. If x is and x-ray count 
given by the Decomm tape, the interpreted values given 
in HPKSIV(K,N) for K = 1, 4, 6, or 7 are defined by 


f (x) , where 



i 

if 

Oiii 95 

4 (i-96) + 98, 

if 

96iiil27 

f(i) = 16 (i-128)+232. 

if 

128ii<159 

64 (i— 160) +7 6 8 , 

if 

160;iiil91 

256{i-192)+2912, 

if 

192ii£ 


HPDSIV (1,N) is the functional interpretation of the 
digital subcom word value read out in main frame 9 . 

Both the energy identification and the quadrant time for 
this word, if available, are in the preceding major frame. 

HPDSIV (2, N) is the value of the digital subcom word read . 
out in main frame 19 . If meaningful , this word contains 
the Qiergy identification for HPDSIV (K,N) , where K — 3, 4, 
5, 6, or 7 and for HPDSIV (1, N+1) , assuming continuous 
data. 

HPDSIV(3,N) is the value of the digital subcom word read 
out in main frame 22. 

HPDSIV (4, N) is the functional interpretation of the 
digital subcom word value read out in main frame 23. 

HPDSIV(5,N) is the value of the digital subcom word read 
out in main frame 24. 
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HPDSSV 


HPDTHF 


HPDSIV(6,N) is the functional interpretation of the 
digital subcoin word value read out in main frame 29. 

HPDSIV(7,N) is the functional interpretation of the 
digital subcora word value read out in main frame 47. 

The meaning of unflagged entries in this array are 
indicated in Figures iv.C.l and iv.C.2 and are more 
completely described in OSO-H Experiment, Description 
and Operation, UNH Gamma' Ray Monitor / June T^vin 

HPDSSV (K,N) is the source value of the K'th digital 
subcom word read out in the major frame represented 
by the half-block. 

HPDSSV (K,N) = HPDSIV(K,N) for K = 2,3 or 5. 
f {HPDSSV (K,N) ) = HPDSIV(K,N) for K = 1,4,6 or 7, where 
f is the function described above for variable HPDSIV. 

HPDTHF (1,N) is a collection of flags pertaining to the 
60th of the 64 main frame experiment words in the half- 
block and applies to the contents of HPDTHW(1,N). The 
pattern of flags contained in HPDTHF (1,N) is the same 
as for all experiment words. If the bits of HPDTHF (1,N) 
are represented by "OOOOOOOOOOOedcba" , where the O’s are 
unused bits (set to zero) and "a" is the least significant 
bit, then; 

bit e = 1 if and only if one or more sync errors 

occurred on at least one of the main frames 
containing a portion of the experiment word, 
bit d = 1 if and only if one or more sync errors 

occurred on the main frame that preceded the 
main frame containing the first portion of 
the experiment word. 

bit c = 1 if and only if uncertainty exists about 
the status of the sync errors on the main 
frame preceding the main frame containing the 
first portion of the experiment word, 
bit b = 1 if and only if any main frame containing a 

portion of the experiment word was a fill frame 
= 1 if and only if fill data was supplied for 
either of the two main frame words containing 
a portion of the experiment word. 


bit a 
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HPDTHW 


HPDTLW 


HPFILN 


HPIDF 


HPMFN 


HPDTHW (1,N) contains 4 times the value supplied in the 
60th of the 64 experiment words in this half-block. 

If pane{N-5) is the start of a readout for a quadrant of 
a: full scan, then the sura of HPDTHW(1,N) and HPDTHW (1 ,N-5) , 
if both parameters are meaningful and data are continuous, 
is the quadrant dead time as read out from the experiment's 
memory. The flags for HPDTHW(1,N) are given in HPDTHF(1,N). 
If a quadrant scan does not end on pane N, the contents 
of HPDTHW (1,N) are meaningless. 

HPDTLW (1,N) contains the intended value of the two 
lowest order bits of the second of the 64 experiment 
words in this half-block. If this pane is the start 
of a readout for a quadrant of a full scan, then the sura 
of HPDTLW(1, N) and HPDThwU, N+5) , if both parameters 
are meaningful and data are continuous, is the quadrant 
dead time as read out from the experiment's memory. The 
flags for HPDTLW(1,N) are given in HPIDF(1, N) . If a 
quadrant scan does not begin in pane N, the value in 
HPDTLW (1,N) is meaningless. 

HPFILN (1,N) contains the sequence count of the file, 
within the Decomm tape, from which this half-block was 
read. 

HPIDF (1,N) contains the collection of flags that pertain 
to the second of the 64 experiment words in this half- 
block. The meaning of the individual bits of HPIDF (1,N) 
is the same as described above for HPDTHF(1,N). 

HPMFN (1,N) is a coixnt of main frame experiment words that 
were processed from the half— block and which had one or 
more flags assigned. This count applied only to the main 
frame data which FEEDER can, under the options in effect, 
supply to the SCAN window. This count specifically 
excludes HPDTHW(1,N), HPDTLW(1,N), and HPSYNW(1,N). 

(Programming note; If HPMFN (1,N) = 0, examination of 
flags for main frame data can be omitted for the major 
frame. ) 

If FEEDER is commanded to replace a half-block of main 
frame data corresponding to pane N by an edited version 
prepared by the calling program, then FEEDER counts the 
flags of the edited array and inserts the count in 
HPMFN(1,N). HPMFN (1,N) will remain unchanged if FEEDER 
is commanded to replace a half-block of decision data 
by an edited version prepared by a calling program. 
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HPSCTS 

Hi^SSUM 

HPSfNF 

HPS/NW 

HPTAPN 

HPTWIL 

QPANjT 

QPATTF 

QPFILL 

QPFILS 


For the half-block in pane n, HPSCTS (1,N) is the count 
of nonfill minor frames for which 1 or more sync errors 
were reported in the flag field. 

HPSSUM(1,N) is the count of sync bits which were in 
error in all nonfill minor frames for the half-block 
in pane N. 

HPSfNF(l,N) is a collection of flags for the first of 
the 64 main frame experiment words in the half-block 
and whose value is given in HPS/NW(1,N). The meaning 
of the individual bits of HPSfNF(l,N) is the same as 
described above for HPDTHF(1,N). 

HPS/NW(1,N) contains the value of the first of the 64 
main frame experiment words. .in the half-block. If this 
pane is the start of a quadrant scan, then HPSfNW(l,N) , 
is meaningful , is the sync word for the scan and should 
contain 4095. If pane N is not the start of a quadrant 
scan, then the contents of HPSfNW(l,N) are not helpful. 

HPTAPN(1,N) is the sequence count of Decomm tapes (with- 
in the job step) from which the half-block was read. 

HPTWIL (1,N) is the number (from 1 to 48) of the main 
frame at which a change in the setting of the day- 
night indicator in the main frame flag field is detected. 
The main frame number is also taken from the flag field. 
HPTWIL (1,N) will either contain one of the numbers from 
1 to 48 or HPTWIL (1,N)= 0 according as QPTWIL(1,N) 

= .TRUE, or QPTWIL(1,N) = .FALSE, 

CrPANjT(l,N) = QPVAC(1,N) .OR.QPIOE(l,N) .OR.QPFILS(l,N) 

.OR.QPTAPS (1 ,N) .OR.QPTIMG (1,N) .OR.QPFILL (1 ,N) 

(Programming note: if QPAN/(1,N) =. FALSE., no examina- 

tion of the other parameters is necessary.) 

Attitude flag field bits are represented, in left-to- 
right order, by QPATTF(K,N) with QPATTF(14,K) corres- 
ponding to the least significant bit of the attitude 
flag field. For further details see Figures IV.C.l 
and IV. C. 2 along with Attachment IV. 

If the default option is taken to nonprocess attitude 
data, FEEDER will initialize this parameter's location 
to zero and will not further modify the area. 

QPFILL(1,N) = .TRUE, if and only if the half-block con- 
tains only fill data. 

QPFILS(1,N) = .TRUE, if and only if the half-block is 
the first half-block from a Decomm file. 
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QPIOE 0PIOE(l,N) = .TRUE, if and only if a permanent I/O 

error occurred on the data block from which the half- 
block in this pane was taken. 

QPNITE QPNITE(1,N) = .TRUE, if and only if the night indicator 
is set for the first nonfill main frame of the half- 
block, If QPFILL(1,N) = .TRUE., then QPNITE(1,N) = 
.FALSE., but not conversely. 

QPSTAT QPSTAT(K,N) =.TRUE. if and only if a corresponding bit 
of the second of the 64 main frame experiment words 
is set to 1. QPSTAT(1,N) corresponds to the highest 
order bit while QPSTAT(10,N) corresponds to the second 
from the lowest order bit. Values from QPSTAT(K,N) 
are set regardless of main frame options in effect. 

If pane N is the start of a quadrant scan and the 
second of the 64 main frame experiment words is mean- 
ingful, OPSTAT(K,N) will contain true-false interpre- 
tation of the main frame status bits. When QPSTAT 
(K,N) = .TRUE., its meaning is briefly indicated in 
Figures IV.C.l and IV. C. 2 and is more completely described 
in the report OSO-H Experiment, Description and Opera - 
tion, UNH Gamma Ray Monitor , June 2, 1971. 

If pane N is not the start of a quadrant scan, 

QPSTAT (K,N) contains useless information. 

QPTAPS QPTAPS(1,N) =.TRUE. if and only if the half-block is 
the first half-block of a Decomm tape. 

QPTIMG QPTIMG(1,N) =.TRUE. if and only if the difference 

UPTIME (1,N) - UPTIME (1,N-1) 

varies from 15.36 seconds by more than 1 second. 

QPTIMG (1,1) is always set to .FALSE. 

feeder's copy of QPTIMG (1,N) cannot be reset by a 
calling program except by revising the time words. 

QPTWIL QPTWIL(1,N) =.TRUE. if, for 2 different nonfill main 
frames , the day-night indicator for the main frame 
flag fields has different settings. [See QPNITE(1,N) 
and HPTWIL(l,N).i 

QPVAC QPVAC(1,N) =.TRUE. if and only if the current pane N 

of the window is not in use and does not reflect 
the contents of any half -block. This condition may 
be expected at the start of the first Decomm tape 
and at the end of the last Decomm tape. 



1-32 


UPTIME 


UPTIME (1,N) contains the time (seconds of century) at 
the start of the major frame represented by the 
half-block . 

The computation by FEEDER of values supplied in 
UPTIME (1,N) is described here to indicate possibili- 
ties for miscalculation. For each data block, the 
value of the milliseconds-of-day field is converted 
to seconds of day regardless of other anomalies, such 
as I/O errors, detected in the data block. If the 
result exceeds 5 seconds before the start time of day 
(which could be misinterpreted) , the value in UKDAfl 
(which could be wrong)' is added to give the time for 
the first half-block. Otherwise, the value in UHDA/2 
is added to compute the time of the first half-block. 
The time for the second ha If -block is computed by 
adding 15.36 to the time for first half-block. 
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Figure ETC. 1 Parameters in each Pane of Decision Window 
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HSCAN 


HSDATL 


HSDATS 


HSFLGL 


The SCAN data window 

1. Organization 

When requested to supply main frame experiment words 
to the SCAN data window, FEEDER assumes, the window to 
begin with 16 data vectors followed by 16 flag vectors. 
(During initialization FEEDER zeros the entire 4096 
bytes of the window.) All vectors are assumed by 
FEEDER to be either 8 bytes in length or 128 bytes in 
length, depending upon whether partial or complete 
main frame options, respectively, had been specified 
during the initial call to FEEDER. 

The correspondence of DECISION window pane sequence 
numbers to vector sequence numbers is controlled in 
the calling program by parameters passed to FEEDER 
when a request is made for main frame data to be 
moved to the window. However, if FEEDER moves data 
into data vector N, the flag fields for the data are 
always moved into flag vector N. 

2. Parameter definitions 

The purpose of this parameter is to define the length 
of the window and to serve as a background parameter. 
However, when the complete main frame data option is 
in effect, HSCAN (K,N,1) contains the data value for 
the K'th experiment word in the N'th data vector 
while HSCAN(K,N,2) contains the corresponding flag 
field. The meanings of the bits of HSCAN(K,N,2) are 
the same as described for HPDTHF in the DECISION 
window. 

HSDATL (K,N) contains the data value for the K*th 
experiment word stored in the N'th full length data 
vector. This parameter is to be used only when the 
complete main frame data option has been specified 
at initialization. 

HSDATS (K,N) contains the value for the (K+60)th 
experiment word for the half-block whose data values 
are stored in the N'th short length (8 bytes) data 
vector. This parameter is to be used only when the 
partial main frame data option has been specified. 

HSFLGL (K,N) contains the flags pertaining to the data 
value contained in HSDATL (K,N). The bit meanings of 
HSFLGL (K,N) are the same as described for HPDTHF in 
the DECISION window. Like HSDATL, HSFLGL should be 
used only when the complete main frame data option 
has been specified. 
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HSFLGS HSFLGS(K,N) contains the flags pertaining to the data 
value contained in HSDATS(K,N). Like HSDATS, HSFLGS 
should be used only when the partial main frame data 
option has been specified. The bit meanings of HSFLGS 
are the same as described for HPDTHF in the DECISION 
window (see Section IV .C. 2) . 
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E. Description of the INTERRUPTION vector window 
1. Format 

The organization of information supplied to a calling 
program via the INTERRUPTION vector is shown in each 
of Figures IV.E.l, IV, E. 2, and IV. E. 3. Figure IV.E.l 
is a chart of the vector which hints at the meanings 
of the various parameters. Figure IV. E. 2 is a similar 
chart which shows the assignment of suggested variable 
names to the parameters. Figure IV, E. 3 is the Fortran 
statement necessary to define the suggested variables. 

FEEDER employs different guidelines for resetting 
different portions of the INTERRUPTION vector. One 
section is always reset? other sections are com- 
pletely reset, but for certain activities only; 
still other sections are treated as scratch areas 
to be used as needed. 

a. Bytes 1-8 are always reset. A calling pro- 
gram must save any desired information from 
this portion before issuing another call to 
FEEDER. 

b. Bytes 9-24 are completely reset whenever a 
calling program requests orbit data. These 
bytes are not modified by other commands. 

c. The parameters in bytes 25-49, 55-56, 65-66 
are a function of the current status of the 
DECISION window and are reset by FEEDER when- 
ever a command affects the contents of the 
window . 

(1) "Initial" command. 

(2) "Advance-DECiSION-window-N-panes" command. 

(3) "Opdate-DECISION-window" command. 

(4) "Delete-half-blocks" command. 

(5) "Skip-N-f lies" command. 

d. The remaining parameters of the DECISION win- 
dow are used only as needed. The meaningfulness 

such parameters is always indicated elsewhere. 
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HIDIOE (8 


HIOECT 


HNIOE 


HNTIMG 


HXFSl 


2. Definitions of parameters in the INTERRUPTION 
vector/ by alphabetical order of suggested variable 
names . 

6) Array of identifiers of Decomm tape blocks which 
caused permanent I/O errors. (This array is updated 
only when the occurrence of I/O errors is indicated 
both by HIOECT / 0 and by QFIOEF = .TRUE.) Let N 
be the lesser of 6 and HIOECT. Then, for J = 1/N, 

HIDIOE (1,J) is the Decomm tape count within the 
current run for which, during last tape reading by 
FEEDER, the Jth I/O error occurred. 

HIDIOE (2, J) is the file count within the tape for 
the Jth I/O error. 

HIDIOE (3, J) is the block count within the file for 
the Jth I/O error. 

HIDIOE (4, J), HIDIOE (5, J), and HIDIOE (6, J) exist merely 
as a convenience to FEEDER and contain no helpful in- 
formation. 

HIDIOE (7, J) contains the sense information provided 
in the 3rd and 4th bytes of the lOB (input-output 
block for the data set) after the I/O error was de- 
tected. 

HIDIOE (8, J) contains the status information from the 
channel status word after the I/O error was detected. 
FEEDER obtains this information from the 13th and 
14th bytes of the lOB. 

The count of permanent I/O errors that occurred during 
the last call to FEEDER. (This parameter is reset 
with every call to FEEDER. ) 

The count of panes in the DECISION window which re- 
sult from Decomm tape blocks causing permanent I/O 
errors, (This parameter is updated each time the 
DECISION window is modified.) 

The count of panes in the DECISION window for which 
the time disagrees with the time of the preceding 
pane. (This parameter is updated every time the 
DECISION window is modified.) 

The number of the first pane, if any, of the DECISION 
window which results from the first half-block of a 
Decomm tape file. (This parameter is updated only 
if CiWFILS = .TRUE.) 
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XFS2 The number of the second pane, if any, in the DECISION 

window which results from the first half-block of a 
Decomin tape file. (This parameter is updated only if 
QXSFIL = .TRUE.) All higher-numbered panes must be 
xndividually examined for this condition, 

HXI0E{4) Vector of pane numbers which resulted from data blocks 
for which permanent I/O errors occurred. The contents 
of this vector are meaningless unless QWIOE == .TRUE, 

If meaningful, let N be the lesser of 4 and HNIOE. 

Then for J = 1,N, HXIOE (J) is the number of the Jth 
pane which is flagged as resulting from an I/O error. 

If the value of HXIOE should exceed 4 , the calling 
program will have to fish through the remainder of 
the DECISION window to locate those panes, after the 
4th, which are flagged as resulting from an I/O error. 

HXTIMG (19) Vector of pane nximbers which are flagged for time 

disagreement with preceding panes. (See QPTIMG de- 
finition in Section IV. C. 2 of this report.) The con- 
tents of this vector are meaningful only if a time 
disagreement exists and is indicated both by QWTIMG 
=.TRUE. and by HNTIMG / 0. If meaningful, let N be 
the lesser of the 19 and HNTIMG. Then, for J = 1,N, 
HXTIMG (J) is the number of the Jth pane to be flagged 
for time disagreement. 


QDAN/ 


QDFILL 


QDFILS 


It seems preposterous to consider the possibility of 
overflowing this array. However, should HNTIMG 
exceed 19, and the calling program be too stubborn to 
lose interest, then the remainder of the DECISION win 
dow will have to be searched for other time gaps. 


"Any-flag" indicator for the first 14 panes of the 
DECISION window. (This variable is updated whenever 
the DECISION window is modified.) 

QDAN/=QPAN/ (1 ,1) .OR.QPAN/ (1,2). OR OR.QPANf (1 , 14 ) 


"Any fill-half-block" indicator for the first 14 panes 
of the DECISION window. (This variable is updated when- 
ever the DECISION window is modified.) 

&DFILL=QPFILL(1,1) .OR.QPFILL (1 , 2) .OR OR.QPFILL (1 , 14 ) 


Any-first in file-half-block" indicator for the first 
14 panes of the DECISION window. (This variable is 
updated whenever the DECISION window is modified.) 
QDPILS-QPFILS ( 1 , 1 ) .OR.QPFILS ( 1 , 2 ) .OR. ... .OR . QPFILS (1 , 14 ) 
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QDIOE 


ODTAPS 


QDTIMG 


QDVAC 


QFIOEF 


QHDERR 


QOANf 


QOCENT 


gOCHNG 


QOEOF 


"Any-I/O-error " indicator for the first 14 panes of 
the DECISION window. (This variable is updated when- 
ever the DECISION window is modified.) 

QDIOE=gpIOE (1,1) .OR.QPIOE (1 ,2) .OR OR.QPIOE (1,14) 

"Any-f irst-in-tape-half-block” indicator for the first 
14 panes of the DECISION window. (This variable is 
updated whenever the DECISION window is modified.) 
ODTAPS=QPTAPS (1,1) .OR.QPTAPS (1 , 2} .OR OR.QPTAPS (1 , 14) 

"Any-time-gap" indicator for the first 14 panes of 
the DECISION window. (This variable is updated when- 
ever the DECISION window is modified.) 

QDTIMG=gpTIMG (1,1) .OR.QPTIMG (1 ,2) .OR OR.QPTIMG (1 , 14 ) 

"Any-vacancy” indicator for the first 14 panes of the 
DECISION window. (This variable is updated whenever 
the DECISION window is modified.) 

QDVAC=»QPVAC (1 ,1) . OR .gpVAC (1 , 2 ) .OR OR.QPVAC (1 , 14) 

=.TRUE. if and only if a permanent I/O error occurred 
during the last call to FEEDER, (This variable is 
reset with every call to FEEDER. ) 

=.TRUE. if and only if the last call to FEEDER caused 
the processing of a file label record containing un- 
acceptable conditions. QHDERR= . TRUE . always causes 
QUIT to be set to .TRUE., but not conversely. This 
variable is updated with every call to FEEDER. 

"Any-flag" indicator for response to request of orbit 
data. (This variable is updated with every request 
for orbit data.) 

"Off-center" indicator for orbit data. QOCENT= . TRUE . 
implies the request time does not fall between the 
second and third times of the orbit data items returned. 

It also implies the request time is near an extreme 
limit of currently stored orbit data. (This variable 
is updated with every request for orbit data.) 

"ORBIT-count-change" indicator. QOCHNG= . TRUE . implies 
the 4 data items returned do not all have the same 
ascending node count. (This variable is updated with 
every request for orbit data.) 

"Any-EOF" indicator for orbit data. QOEOF=.TRUE. 
implies the orbit data items returned do not all come 
from the same file of the Decomm tape. CThis variable 
is updated with every request for orbit data.) 
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QOIOEF "Any-I/O-error " indicator for orbit data, QOIOEF= 
•TRUE, implies at least one of the orbit data items 
returned was taken from a block for which a permanent 
I/O error occurred. (This variable is updated with 
every request for orbit data.) 

QOMISS Unable- to-supply” indicator for orbit data. 

QOMISS=.TRUE. implies no data was available for the 
requested time. (This variable is updated with every 
request for orbit data.) 

QONONE "No-orbit-data available" indicator. QONONE= . TRUE . 

implies FEEDER has no orbit data items stored. Likely 
causes of this condition are failure to specify orbit 
data processing option or lack of orbit data on 
quick-look tapes. (This variable is updated with every 
request for orbit data.) 


QOTIMG "Time-gap" indicator for orbit data. QOTIMG = .TRUE. 

implies that, for a consecutive pair of the 4 data items 
returned, the difference between the data item times 
exceeded 60.001 seconds. (This variable is updated 
with every request for orbit data.) 


QSANY "Any- flag" indicator for the last 16 panes of the 

DECISION window. (This variable is updated whenever 
the DECISION window is modified.) 

QS ANY=QP ANY ( 1 , 1 5 ) . OR . QP ANY (1,16). OR OR. QPANY (1,30) 


QSFILL "Any-fill-half-block" indicator for the last 16 panes 
of the DECISION window. (This variable is updated 
whenever the DECISION window is modified.) 

QSFILL=QPFILL (1 ,15) . OR. QPFILL (1 , 16 ) .OR OR.QPFILL (1 , 30) 

QSFILS "^y- first-in-file-half-block" indicator for the last 
16 panes of the DECISION window. (This variable is 
updated whenever the DECISION window is modified.) 
QSFILS-QPFILS (1,15) .OR.QPFILS (1,16) .OR OR.QPFILS (1,30) 


QSIOE 


"Any-l/O-error" indicator for the last 16 panes of the 
DECISION window. (This variable is updated whenever 
the DECISION window is modified.) 

QSIOE=QPIOE (1,15) .OR.QPIOE (1,16) .OR OR.QPIOE (1,30) 


QSTAPS ^y-first-in- tape-half-block" indicator for the last 

16 panes of the DECISION window. (This variable is 
updated whenever the DECISION window is modified.) 
QSTAPS=QPTAPS (1,15) .OR.QPTAPS (1,16) .OR OR.QPTAPS (1,30) 
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QSTIMG 

QSVAC 

QTAPEN 

QUIT 

QWANf 

QWFILL 

QWFILS 

QWIOE 

QWTAPS 

QWTIMG 

QWVAC 

QXSFIL 


"Any- time-gap" indicator for the last 16 panes of the 
DECISION window. (This variable is updated whenever 
the DECISION window is modified.) 

QSTIMG=QPTIMG (1,15) .OR.QPTIMG (1,16) .OR OR.QPTIMG (1 , 30) 

"Any-vacancy " indicator for the last 16 panes of the 
DECISION window. (This variable is updated whenever 
the DECISION window is modified.) 

QS VAC=QP VAC ( 1 , 1 5 ) . OR . QPVAC (1 , 1 6 ) . OR OR . QPV AC (1,30) 

=.TRUE. if and only if FEEDER has encountered the 
end of the last tape volume to be processed. This 
variable is updated with every call to FEEDER, 

=.TRUE. only if further processing is either impossible 
or counter-productive. (This variable is updated with 
every call to FEEDER.) 

"Any-flag" indicator for the entire DECISION window. 

QWANf = QDANf .OR.QSANf 

"Any-f ill-half-block" indicator for the DECISION 
window. 

QWFILL = QDFILL.OR.QSFILL 

"Any-f irst-in-file-half-block" indicator for the 
DECISION window. 

QWFILS = QDFILS.OR.QSFILS 

"Any-I/O-error " indicator for the DECISION window. 

QWIOE = QDIOE.OR.QSIOE 

"Any-first-in-tape-half-block" indicator for the 
DECISION window. 

QWTAPS = QDTAPS.OR.QSTAPS 

"Any- time-gap" indicator for the DECISION window. 

QWTIMG = QDTIMG. OR. QSTIMG 

"Any-vacancy" indicator for the DECISION window. 

QWVAC = QDVAC. OR. QSVAC 

"Excess-file" indicator for the DECISION window."- 
QXSFIL= .TRUE , implies more than one ha If -block is 
flagged for being the first. half-block from a Decomm 
tape file. (This variable is updated whenever the 
DECISION window is modified.) 
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V. Detailed Description of the Cominands to which FEEDER 
Responds 


A sample CALL statement is provided for each command to 
provide a vehicle for defining the arguments passed. The , 
first argument of every CALL statement identifies the command 
FEEDER is to execute. 


Since the commands are presented in no particular sequence, 
the following index may be helpful. 


Section 


Command Purpose 


V.A Initialization. 

V . B Advancing the Decorom tape , 

V.C Retrieval of orbit data. 

V.D Retrieval of file label information. 

V.E Changing the values in the DECISION window. 

V.F Changing the values in the main frame data. 

V.G Deleting portions of the DECISION window. 

V.H File skipping and tape skipping. 

V.I Displaying main frame data. 


A. The "initial" command 

CALL FEEDER (1 ,NTAPES ,MFDOP , lATTOP , IDSOP , lASOP , lORBOP) 

NTAPES The exact number of Decomm tapes to be processed 
during the job step. 

MFDOP Option code to control the processing of main frame 
data to be supplied to the SCAN window. 

MFDOP = 0 implies main frame data is not to be 
processed. (The 1st, 2nd, and 60th experiment words 
are processed for the DECISION window regardless 
of the option code passed via MFDOP . ), 

MFDOP = 1 implies all main frame data is to be 
processed. When subsequently requested to supply 
main frame data, FEEDER assumes the SCAN window to 
consist of 16 128-byte data vectors followed by 
16 128-byte flag vectors. 

MFDOP = 2 implies PHA channel counts are to be 
ignored, FEEDER will respond by processing the 
61st throught 64th experiment words for each half- 
block. (Of course, if the half-block does not end 
a quadrant scan, the 61st-64th experiment words will 
again be unwanted channel counts.). Only these 4 
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lATTOP 


IDSOP 


IAS OP 


experiment words will be tested to establish the 
flag count contained in the HPMFN(1,N) variable in the 
DECISION window. When subsequently requested to supply 
main frame data, FEEDER will assume the SCAN data window 
to consist of 16 8-byte data vectors followed by 16 8- 
byte flag vectors. 

If the value of MFDOP is not 0, 1, or 2, FEEDER will 
set QUIT = .TRUE, and assume a value of 0. 

Option code to control the processing of attitude data 
words . 

lATTOP = 0 implies omission of attitude data from the 
DECISION window for the current job step. The ATTDAT 
and QPATTF variable locations (see Figure IV. C. 2) will 
be initially zeroed and subsequently ignored by FEEDER. 

lATTOP ^ 0 implies attitude data values are to be pro- 
cessed and to be placed in the DECISION window. 

Option code to control the processing of digital subcom 
data. 

IDSOP = 0 implies omission of digital subcom data from 
the DECISION window during the current job step. The 
HPDSSV, HPDSIV, HPDSF variable locations (see Figure 
IV. C. 2) will be initially zeroed and subsequently ignored 
by FEEDER. 

IDSOP 7 ^ 0 implies digital subcom data are to be processed 
and to be placed in the DECISION window. 

Option code to control the processing of analog subcom 
data words. 

lASOP = 0 implies omission of processing wheel analog 
subcom words 3-10. Words 1 and 2 are processed regardless 
of the option specified by lASOP. The locations reserved 
in the DECISION window for words 3-10, and for their 
associated flags, are initialized to zero and are 
subsequently ignored by FEEDER. (See variables HPASSV 
and HP ASF in Figure IV. C. 2^ Only words 1 and 2 will be 
examined to determine the count of flagged words for 
the variable HPAFN (1,N) in the DECISION window panes, 

lASOP 0 implies all 10 wheel analog subcom words 
are to be processed and to be placed in the DECISION 
window . 
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lORBOP Option code to control the processing of orbit 
data. 

lORBOP = 0 implies no orbit data needed during the 
current job step. If a subsequent request for orbit 
data is made, FEEDER will assume the calling program 
is insane and will set QUIT = .TRUE. 

lORBOP = 1 implies only regular orbit data items 
are desired. FEEDER will store the first data item 
for each file, regardless of data item type. Sub- 
sequent special data items will be discarded and 
only regular data items stored to supply requests 
for orbit data. 

lORBOP = 2 implies all orbit data items required. 

If the value of lORBOP is not 0, 1, or 2. FEEDER 
will assume a value of 0 and will set QUIT = .TRUE. 

Orbit data blocks are scanned for sun-entrance times, 
for sun-exit times and for ascending node crossings, 
regardless of the option specified by lORBOP. 


B. The "advance-DECISION-window-N-panes" command 
CALL FEEDER (2,N) 

Where the value of N is the number of panes the DECISION 
window and associated main frame data are to be advanced. 
The response made by FEEDER varies with the value of N. 

N < 0. FEEDER sets QUIT = .TRUE, and takes no further 
action. 

N = 0. The display FEEDER most recently made in the 
DECISION window is reproduced. No other action takes 
place. 

1 ^ N <_ 16. The contents of the first N panes are lost. 
The contents of the remaining (30-N) panes are shifted 
to the first (30-N) panes so that what was formerly in 
the (N+l)st pane is now in the 1st pane; what was formerly 
in the (N+2}nd pane is now in the 2nd pane, etc. Then 
N half-blocks are read from the Decomm tape to complete 
the new DECISION window display. The set of main frame 
data stored by FEEDER is updated to correspond to the 
new contents of panes 15-30 of the DECISION window, 
provided a main frame processing option has been elected. 
Appropriate settings are next made for the QPANY(1,N) 
and the QPTIMG(1,N) flags. Finally, flag summaries and 
associated pointers are determined and placed in the 
INTERRUPTION vector. 



N > 17. FEEDER recognizes this as a plunge forward into 
the unknown and will limit the advance, if necessary, 
to guarantee the contents of pane 14 after the advance 
will have originated from the same file as did pane 30 
before the advance. Otherwise, FEEDER'S response in the 
same as for 1 _< N £ 16. 

C. The ”fetch-ORBIT-data-for-time-T” command 
CALL FEEDER (3) 

The O^IT window variable UREQT is assumed by FEEDER to 
contain the request time T. 


If the option had been specified to omit orbit data 
processing, FEEDER will set QUIT = .TRUE., appropriately 
set response flags in bytes 9-16 of the INTERRUPTION 
vector, but take no other action. In particular, the 
ORBIT window is unmodified by the command. 

If time T falls within the range of available data, 

FEEDER will complete the ORBIT window. Let tj, tz. . . 
t denote the times for which FEEDER has stored orbit 
data items. FEEDER will complete the ORBIT window if 
^ ■*' 60.000, where all times are in seconds. 

If T falls near enough to the lower (or upper) limit 
so that T < tj, (or T > t . ) , then FEEDER will enter 
the first 4 (or last 4) data items in the ORBIT window 
and will set QOCENT = . TRUE. Ordinarily FEEDER will 
select 4 consecutive data items for times t , t. , 
t.^2, ^i+l< T < t.^2^ i 1+1 

If time T falls outside the range of available data 
(T < t, or T ^ t + 60.000 or no data available) , 

FEEDER appropriately sets the response flags in bytes 
9-16 of the INTERRUPTION vector, but takes no other 
action. in particular, the ORBIT window remains unchanged 
by the command. 

D. The "fetch-file-information" commands 

Two commands are available, one to obtain the information 
newer file currently being read by FEEDER and 
(older) file. For either command, the retrieved, infor- 
mation is placed in the HEADER window. 
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1. Retrieving information from the older file 
CALL FEEDER (4) 

There is no information for an older file at the 
start of the first tape. Under certain circumstances 
there may be no information for an older file at 
the start of subsequent tapes. Consequently, it 
would be prudent to follow the command by examining 
the QHVAC parameters in the HEADER window. 

2. Retrieving information from the newer file 
CALL FEEDER (5) 

E, The "update-DECISION— window" command 

This command allows a calling program to edit one or 
more panes of the DECISION window. Displays made in the 
DECISION window are copies of a storage area containing 
what FEEDER considers to be the true status of the win- 
dow. This command orders FEEDER to alter the contents 
of that storage area. 

CALL FEEDER (6 ,NPANES ,NFROM,NTO) 

NPANES The number of consecutive panes to be revised. 

NFROM The number of the DECISION window pane containing 

the revised information for the first pane to be 
edited. If NPANES > 1, the remaining revised in- 
formation is taken from consecutively higher num- 
bered panes. 

NTO The number of the DECISION window pane (in storage) 

in which FEEDER is to place the revised information. 
In other words, the value of NTO is the number of 
the first pane to be edited. If NPANES > 1, the 
remaining revised information is placed in consecu- 
tively higher numbered panes . 

FEEDER executes this command by performing the 
following sequence of tasks: 

1. Bytes 1-8 of the INTERRUPTION vector are zeroed. 

2. NPANES, NFROM, and NTO are inspected for reason- 
able values. If impossible values exist, FEEDER 
sets QUIT = .TRUE, and takes no further action. 
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3. New values for all parameters except HPMFN(1,N) 
are moved to each of the panes being edited. 

The exception of the HPMFN(1,N) parameter allows 
updating of corresponding main frame data to be 
performed either before or after the updating of 
DECISION data. 

4. The QPANYC1,N3 and QPTIMG(1,N) flags are reset 
appropriately for every pane in the DECISION window. 

5. Flag summaries and pointers in the INTERRUPTION 
vector are reset to reflect the contents of the 
revised DECISION window. 

6. The DECISION window is displayed in its edited 
form. 

(Programming note: Any pane of the DECISION window 

may be used by a calling program to build an edited 
version of a pane. The proper contents of the building 
area will be displayed after FEEDER has completed the 
update. But be sure to first save any useful values 
that will be wiped out.) 


F. The "update-main-frame-data" command 

This command allows a calling program to edit main 
frame data corresponding to one or more panes of the 
DECISION window. Main frame data, which is supplied 
only by request, is kept by FEEDER in its own storage 
area. This command orders FEEDER to alter the contents 
of that area. 

CALL FEEDER (7 ,NVECTS ,NVECT1 ,NPANE1) 

NVECTS The number of consecutive data vectors (and corres- 
ponding flag vectors) which contain the edited ver- 
sion of the main frame data. 

NVECTl The number of the first data vector (as well as of 
the first flag vector) which contains the edited 
main frame data. If NVECTS > 1, the remaining edited 
data is taken by FEEDER from consecutively higher 
numbered vectors . 

NPANEl The number of the first DECISION window pane for 

which corresponding main frame data is to be modified. 
If NVECTS > 1, the remaining edited data replaces 
main frame data corresponding to consecutively higher 
numbered DECISION window panes. 



FEEDER responds by performing tbe following sequence 
of tasks: 

1. Bytes 1-8 of the INTERRUPTION vector are zeroed. 

2 . NVECTS , NVECTl , and NPANEl are examined for rea- 
sonable values. If impossible values are detected 
or if the option to omit main frame data processing 
had been specified, FEEDER sets QUIT = .TRUE, and 
takes no further action. 

3. The edited main frame data is moved as specified. 

4. For each pane whose corresponding main frame data 
has been revised, the revised main frame flags are 
counted and the count is placed in the HPMFN(1,N) 
parameter. 


G. The "delete-half-block” command 

This command allows a calling program to shorten a sec- 
tion of the DECISION window so that the number of panes 
agrees with the number of major frames represented. 
Squeezing out a half-block containing only fill data 
is expected to be one of the applications for this 
command . 

CALL FEEDER (8 ,NPANES , NPANEl) 

NPANES The number of consecutive panes which are to be 

deleted from the DECISION window. NPANES is also 
the number of DECISION window panes for which cor- 
responding main frame data will be deleted. 

NPANEl The number of the first DECISION window pane to be 
deleted . 

The DECISION window displayed by FEEDER after exe- 
cuting this command will show: 

1. The first (NPANEl-1) panes are unchanged. 

2. The data formerly in pane (NPANEl + NPANES) 
will be in pane NPANEl, the data formerly in 
pane 30 will be in pane (30-NPANES) , and inter- 
mediate data will also be shifted by NPANES panes. 

3. NPANES new half-blocks, Decomra tapes permitting, 
will be at the upper end of the DECISION window. 
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Main frame data that FEEDER can supply will also 
be updated to correspond to the half-blocks in 
DECISION window panes 15-30. 

If the values of NPANES and NPANEl make the command 
impossible, FEEDER will set QUIT = .TRUE, and take 
no other action. 


H. The " skip-N- files" command 

This command allows a calling program to bypass sub- 
stantial data on a Decomm tape without causing FEEDER 
the labor of processing the unwanted intervening in- 
formation. The command can be modified to skip the 
remainder of a Decomm tape, if desired. 

CALL FEEDER (9,N) 

the value of N indicates the number of files to 
be skipped. The response made by FEEDER varies with 
the value of N; 

N _< 0. The current tape is dismounted and reading be- 
gins on the next tape. When control is returned, FEEDER 
has read enough of the next tape so that the first 16 
half-blocks are in panes 15-30 of the DECISION window 
while the first 14 panes will be empty. No file infor- 
mation will be available for the HEADER window prior to 
the first file of the next tape, and neither will any 
orbit data be saved from previous files. 

N ^ 1. Decomm files are counted starting with file 0 
being the file from which DECISION window pane 30 was 
taken prior to the file-skip command. if file N lies 
beyond the first file of the next tape, then FEEDER 
limits its response to be equivalent to a tape skip 
described above for N = 0. Otherwise, FEEDER proceeds 
as follows: 

1. Files are skipped as necessary until file (N-1) 
is reached. 

2. File information is taken (for the HEADER window) 
and orbit data is saved from file (N-1) . 

3. FEEDER proceeds more cautiously to retain the 
last 14 half-blocks of file (N-1) for the DECISION 
window. When control is returned, the first half- 
block from file N will be in pane 15 of the DECISION 
window. If options require it, orbit data will be 
available for file N, as well as some orbit data 
for the last part of file (N-1). File information 
from either file (N-1) or file N can be placed in 
the HEADER window • 
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I. The "fetch-N-vectors-of-rnain-frame-data" command 
CALL FEEDER {10 ,N ,NPANEl ,NVECT1) 

N The number of consecutive DECISION window panes 

for which the corresponding main frame data is to 
be placed in the SCAN data window. 

NPANEl The number of the first DECISION window pane for 

which corresponding data is to be moved to the SCAN 
data window. If N > 1, remaining data is taken 
corresponding to the next (N-1) higher numbered 
panes . 

NVECTl The number of the data vector and of the corresponding 
flag vector to which values for pane NPANEl are 
moved. If N > 1, the remaining data and flags are 
moved to the next (N-1) higher numbered vectors. 

If the values of N, NPANEl, NVECTl, make the command 
impossible, FEEDER will set QUIT = .TRUE, and take 
no further action. 
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Program Language 
Date Written 
Programmer 
Installation 

Computer 

Subprograms Called 
Description 


Subroutine ADRESS 


IBM-360 0/S Assembler Language 
June 29, 1971 
A. Buck 

University of New Hampshire 
Space Science Center 

IBM-360-H50 

None 

Subroutine ADRESS initializes storage 
areas supplied by subroutine GETCOR. 

Storage areas are partitioned appropriately 
and addresses of the various partitions 
are stored as required by subroutine 
FEEDER and its subservient routines. 
Partition-in-use flags, where present, 
are set to indicate the partition is not 
currently in use. 
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Subroutine DECISION 


Program Language 
Date Written 
Programmer 
Installation 

Computer 

Subprograms Called 
Description 


IBM-360 0/S Assembler Language 
September 3, 1971 
A. Buck 

University of New Hampshire 
Space Science Center 

IBM-360-H50 

None 

This subroutine performs all processing 
of main frame data, subcom data, and flag 
fields contained in one data block of a 
Decomm tape. For each of the two major 
frames, subroutine DECISION; 

A, Completes main frame storage 
partitions in accordance with the 
main frame data processing option 
in effect. In the event the short 
partition option is selected, the 
four experiment words are placed 
at the beginning of the allotted 
storage area. 

B. Nearly completes the DECISION 
window pane. The only DECISION 
pane parameters not developed by 
the subroutine are : 

QPANY Which depends on QPFILS and 
QPTAPS . 

QPFILS Which only FEEDER can set 
properly . 

QPTAPS Which only FEEDER can set 
properly. 

Which FEEDER must develop 
to determine the proper 
settings for preceding sync 
flags. 


UPTIME 



Subroutine GETCOR 


Program Language 

: Fortran IV, G-Level 

Date Written 

; June 29, 1971 

Programmer 

; A. Buck 

Installation 

; University of New Hampshire 
Space Science Center 

Computer 

: IBM-360-H50 

Dummy Arguments 

: None 

Description 

; Subroutine GETCOR contains storage areas 
to be used by subprogram FEEDER and its 
subservient routines. GETCOR is called 
during initialization and in turn calls 
subroutine ADRESS to relay area addresse 
to FEEDER. 



Subroutine HEADEREC 


Program Language 
Date Written 
Installation 

Computer 

Subprogram Called 
Description 


: IBM-360 0/S Assembler Language 

: June 4, 1971 

i University of New Hampshire 
Space Science Center 

: IBM-360-H50 

: None 

; Subroutine HEADEREC is designed to assist 
subprogram FEEDER by reformatting infor- 
mation in the file header record and 
storing the reformatted information to 
replace the older information in the two 
HEADER windows. (The term HEADER window 
here means an area of core storage contain- 
ing information about a Decomm file in a 
form that is usable by a Fortran program. 
Most of the information is taken from the 
file header record.) In addition, subrou- 
tine HEADEREC computes time constants 
useful to other routines in analyzing 
orbit data records and experiment data to 
follow within the file. 
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Program Language 
Date Written 
Programmer 
Installation 

Computer 

Sxibprograms Called 
Description 


Subroutine ORBSTOR 


: IBM-360 0/S Assembler Language 

: June 23, 1971 

; A. Buck 

: University of New Hampshire 

Space Secience Center 

; IBM-360-H50 

: TAPREAD 

; Subroutine ORBSTOR assists subprogram 
FEEDER by processing orbit data records 
in accordance with user -options. ORBSTOR 
is to be called after the header record 
has been processed but before further 
requests to TAPREAD are made. ORBSTOR 
calls TAPREAD to supply all orbit data 
records and processes these records. 

ORBSTOR returns control to FEEDER as soon 
as a record is read normally but which 
does not identify as an orbit data record. 
Then, when control is returned to FEEDER, 
the first data record in the file is 
presumably available is the buffer whose 
address is stored at 'ABUFFNEW' (see 
DSECT defined by the symbol 'CONTORG'). 

A. All orbit data items are scanned 
for sunlight-entrance times and for 
sunlight-exit times. These times 
are stored in the newer of the two 
HEADER windows . 

B. If the user has elected the orbit 
data option, orbit data is stored as 
described in subroutine ORBWNDW. 

C. If the user has elected the all 
item option as well as the orbit data 
option, all data items are stored if 
possible. If the user refuses the all 
item option, only the earliest data 
item and subsequent regular data 
items are stored. 
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Program Language 
Date Written 
Programmer 
Installation 

Computer 

Subprograms Called 
Description 


Subroutine ORBWNDW 


IBM-360 0/S Assembler Language 
May 3, 1971 
A. Buck 

University of New Hampshire 
Space Science Center 

IBM-360-H50 

None 

This subroutine assists subroutine 
FEEDER by handling all requests for 
OSO-H orbit data CEphemeris) values. 
Subroutine ORBWNDW locates , where 
possible, and returns a set of 4 values 
for each of 22 orbit data parameters. 

These 4 values correspond to a set of 
times which are centered as nearly as 
practical about a requested time. (All 
times are seconds of 20th century in 
double precision, floating point format.) 

Data is returned by ORBWNDW in a contiguous 
storage area called the 'ORBIT data win- 
dow' . The window area is 340 bytes in 
length and must originate in a double 
word boundary. 

OSO-H orbit data (i.e., Ephemeris data) 
applying to a particular experimenter 
tape file is located on tape records at 
the beginning of the file and preceding 
records containing experiment data. 

When the orbit data records are read, 
the FEEDER subprogram converts the in- 
formation to IBM-360 format and stores 
it for subsequent recall. (If the user 
fails to specify the orbit data options , 
the FEEDER subprogram will merely scan 
the orbit data for sunlight-entrance and 
exit times. No storage occurs and no 
recall is possible.) Since much of the 
OSO-H 3 data is read out at a time after 
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it was recorded, the FEEDER subprogram 
must retain some orbit data from the 
previous file to ensure providing orbit 
data corresponding to the time data 
was recorded. 

Orbit data is recalled by specifying a 
time T near which values for orbit para- 
meters are requested. Let [T(l), T{2),. .. 

T (N) J be the times for which orbit data 
is stored. Subprogram FEEDER will, if 
possible, return 4 orbit data values for 
all orbit data values for all parameters 
for the set of times [T(I) , T{I+1), T(I+2), 
T(I+3)] which most nearly brackets time 
T. In particular; 

A. If the user has failed to specify 
the orbit data processing option, 
FEEDER will; 

1. Print a message indicating 
the conflict. 

2. Set a flag indicating no 
orbit data returned. 

3. Set a flag indicating pro- 
gram should be aborted. 

B. If T is less than T(l), or if T 
is greater than T(N) + 59999 msec., 
FEEDER will set a flag indicating 
no data returned. 

C. If T is less than T{2) but not 
less than T(l) FEEDER will: 

1. Return values corresponding 
to T(l) , T(2) , T(3) , T(4) . 

2. Set a flag indicating times 
are not centered. 

D. If T is greater than T(N-l) but 
less than [T (N) + 60000 msec], 

FEEDER will: 

1. Return values corresponding 
to T(N-3), T{N-2), T{N-1), TCN). 

2. Set a flag indicating times 
are not centered. 
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E. If T is not less than T(2) and 
not greater than T (N-1) , FEEDER 
will return sets of values corres- 
ponding to 

Set of times CT(I), T(I+1), 
T(I+2), T(I+3) where T exceeds 
T(I+1) but does not exceed 
T{I+2). 

In all, 22 orbit data parameters 
are managed by subprogram FEEDER. 
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Program Language 
Date Written 
Programmer 
Installation 

Computer 

Subprograms Called 
Description 


Subroutine TAP READ 


IBM-3.60 0/S Assembler Language 
August 17, 1971 
A. Buck 

University of New Hampshire 
Space Science Center 

IBM-360-H50 

None 

* This subroutine assists subprogram 
FEEDER by reading and positioning OSO-H 
Experimenter Decomm tapes. The 7-track 
Decoram tapes are to be read using the 
data converter feature . 

End-of-file conditions are indicated 
to subprogram FEEDER by means of a return 
code in general register 15. Return codes 
of 0, 4, and 8 indicate no tape marks 
encountered during activity > record re- 
turned is first record after last tape 
mark detected during activity, and end 
of volume (2 consecutive tape marks) 
detected with no record returned. 

TAPREAD performs any of 4 tasks depending 
on the command code passed via general 
register 1. 

REG1=0 The next block is read from the 
Decomm tape. If the first read 
encounters a tape mark, the file 
count is incremented, block count 
reset to zero, and a second read 
issued and checked. 

REG1=4 Any Decomm tape currently open is 
closed and dismounted. The DDNAME 
parameter for the next tape is 
placed in the DCB and the next 
tape opened. The first block is 
read and returned. 
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REG1=8 The full word defined by the symbol 
FILESKIP (in feeder's control area) 
contains the number of files TAPREAD 
is to skip, beginning with the cur- 
rent file. The specified number of 
files are skipped and the first 
block is read from the following 
file and returned. if eOV limits 
the file skipping, the full word 
denoted by the symbol FILESKIP con- 
tains the number of files not 
skipped. 

REGl-12 If possible, the 7th from the last 
block of the current file is read 
and returned. 
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FEEDER Messages 


Subprogram FEEDER communicates to the user through a series 
of messages indicating 


A. The condition of the input tapes and the data files 
on those tapes. 


B. Requests made by the user that cannot be met. 


C. Input/output errors. 


D. Difficulties during program execution due to anomalies 
in the data. (Flags are usually set and printed to help 
determine the problem area^^) 


The following is a list of the message numbers and correspond- 
ing messages printed out by FEEDER subroutines. Each message 
is followed by a brief explanation. 



1-69 


MO 10. HEADER RECORD FAULTY. SATELLITE ID = , 
YEARS = , EXPERIMENT NO. = , BEGIN 
TIME = , END TIME = 


Explanation: Either the satellite identifier, the range of 

years, the experiment number, the interval between time and 
end time are inconsistent with the UNH-OSO experiment. These 
are considered intolerable conditions. A quit-requested flag 
is posted in the interruption vector. 


M020. REQUEST FOR ORBIT DATA CONFLICTS WITH ORBIT OPTION. 

Explanation; The user failed to elect the orbit data proces- 
sing option and then later asked for orbit data. This message 
is printed at most once per file. 


M030. REQUEST FOR ORBIT DATA WHEN NONE IN STORAGE. 

Self-explanatory. This could occur if quick-look tapes were 
being used as input while the option to process orbit data 
was in effect. This message is printed once per file at most. 


M040. REQUESTED ORBIT DATA NOT IN STORAGE. 

Self-explanatory. The request time of data did not fall with- 
in the range of orbit data times of the orbit data currently 
in storage. This message is never printed more than once per 
file. 


M050. END-OF-FILE DETECTED BY ORBIT DATA STORAGE ROUTINE. 

Explanation; The organization of the experimenter tape is 
incorrect. 


M060. I/O ERROR AND ORBIT-DATA-ID ERROR CAUSED REFUSAL OF 
EXPECTED ORBIT RECORD. 

Explanation: The record was bypassed because of the existence 

of both of the named conditions. 


M070. ORBIT DATA IMPROPERLY TERMINATED ON TAPE, 

Self-explanatory. The orbit data may or may not have been 
properly filed. 



M080. 


1-70 


NO ORBIT DATA RECORDS IN FILE. 

Self-explanatory. 

M090. UNEXPECTED ORBIT DATA RECORD. 

Explanation: The record identifier indicates the record 

contains orbit data. This contradicts the prediction based 
on the preceding record. Both records are accepted. 


MIOO. INVALID DAY-OP-YEAR CAUSED ORBIT DATA RECORD REFUSAL. 

Explanation: Day-of-year count of first data item disagrees 

with both possible day of year counts computed from the header 
record. The orbit data record is bypassed. 


MllO. INVALID DAY-OF-YEAR CAUSED DATA-ITEM REFUSAL, ITEM 
WAS SUNLIGHT ENTRANCE OR EXIT ITEM. 

Explanation: An orbit data item was bypassed for the reason 
given. However, other orbit data items from the same record 
may have been successfully processed. 


M120. OVERFLOW ON SUNLIGHT TIME ARRAY. 

Explanation: The list of day-night exceeds planned storage. 

Only first four items are saved. 


M130. TAPEMARK AT START OF TAPE NO. , SER = 

Explanation; Tapemark encountered at start of tape. 


M150. I/O ERROR OCCURRED ON BLOCK OF FILE OF 

TAPE CSER = )ON UNIT 7'SENSE = 

, STATUS = . 

Explanation: Input/output error has occurred; usually a 

result of either bad tape or problem tape drive. 


M160. NON-STANDARD BLOCK LENGTH = BYTES ON 

BLOCK OF FILE OF TAPE 

(SER = ) ON UNIT . 


Self-explanatory. Block of data of incorrect block size has 
been read. 
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M170. UNEXPECTED FRAME COUNTS AT BLOCK 
Self-explanatory. 

M180. TIME FIELD DAY COUNT = INSTEAD OF 

OR . 

Explanation: Day of year count disagrees with both 

possible day— of-year counts computed from the 
header record. 

M190. COMMAND CODE OUT OF ALLOWABLE RANGE. 

Self-explanatory: Command code is greater than 10, 

M200. COMMAND PRECEDED INITIALIZATION COMMAND. 

Self-explanatory: Initialization command must be 

issued before other commands to FEEDER can be 
executed. 

M210. INITIALIZATION COMMAND ISSUED MORE THAN ONCE. 
SUBSEQUENT COMMAND REFUSED. 

Self-explanatory, 

M220. FEEDER TO PROCESS _J TAPES, (accept or 

reject) WASC WDS 3-10, accept or reject ATT DATA, 
( accept or reject ) ORBIT ITEMS. 

Explanation: Message is printed after initialization 

command has been issued to indicate options selected 
by user. 

M230. INVALID DECOMM TAPE COUNT.* 1 SUBSTITUTED. 

Explanation; Tape count may not exceed 12. 

M240. INVALID MF DATA PROCESSING OPTION CODE. 0 SUBSTITUTED. 
Explanation: Code must be 0, 1, dr 2. 

M250. INVALID ORBIT OPTION CODE. 0 SUBSTITUTED. 

Explanation; Code must be 0, 1, or 2. 
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M260. INVALID PARAMETERS TO UPDATE DECISION WINDOW. 

Explanation: Call arguments invalid. 

M270. INVALID PARAMETERS TO UPDATE MAIN FRAME DATA. 

Explanation; Call arguments invalid. 

M280. INVALID PARAMETERS TO DELETE HALFBLOCKS. 

Explanation: Call arguments invalid. 

M290. FILESKIP TERMINATED BY EOV AT END OF FILE . 

Self-explanatory. 

M300. INVALID PARAMETERS TO FETCH MAIN FRAME DATA. 
Explanation: Call , arguments invalid. 

M310. ALL PANES ARE VACANT. END-OP-DATA FLAG IS _. 

Explanation: Indicates no data in decision window. 
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FEEDER TO PROCESS 8 TAPES. ACCEPT ALL MF DATA. ACCEPT OSM MDS, ACCEPT HA$C WOS 3-10, ACCEPT ATT DATA, 
**** M140. BLOCK 1 READ FROM FILE I OF TAPE I ( SER«EX0314) . 

REQUESTED ORBIT DATA NUT IN STORAGE* 

M140. BLOCK I READ FROM FILE 2 OF TAPE I ($ER3EX0314 J . 

REQUESTED ORBIT DATA NOT IN STORAGE. 

M140. BLOCK I READ FROM FILE 3 OF TAPE 1 (SER>EXD314 J . 

REQUESTED ORBIT DATA NOT IN STORAGE. 

K140. BLOCK I READ FROM FILE 4 OF TAPE 1 tS£R>EX0314). 

REQUESTED ORBIT DATA NOT IN STORAGE. 

M140. BLOCK 1 READ FROM FILE 5 CF TAPE 1 (SER*EX0314> . 

UNEXPECTED FRAME COUNTS AT BLOCK 20. 

REQUESTED ORBIT DATA NOT IN STORAGE. 

Kl<.0. BLOCK 1 READ FROM FILE 6 OF TAPE 1 ( SER»EX031 4) . 

REQUESTEO ORBIT DATA NOT IN STORAGE. 

**** H140. BLOCK I READ FROM FILE 7 CF TAPE I I SEK»EX03I4) . 

requested orbit data not in storage. 

»*»• ML40. BLOCK 1 READ FRCM FILE 8 CF TAPE I 4 SER^EXOil 4) . 
requested ORBIT DATA NOT IN STORAGE. 

**** M140. BLOCK 1 READ FROM FILE 9 OF TAPE I ISER3EX03I4> . 

REQUESTED ORBIT DATA NOT IN STORAGE. 

•**« ML40. BLOCK I READ FROM FILE 10 OF TAPE 1 I SER«EXD314) . 

REQUESTED ORBIT DATA NOT IN STORAGE. 

**** M140, BLOCK I READ FROM FILE ll OF TAPE 1 IS£R»EX0314J . 

REQUESTED ORBIT DATA NUT IN STORAGE. 

**** M140. BLOCK 1 READ FROM FILE 12 OF TAPE 1 IS£R»EX03141 . 

UNEXPECTED ORBIT DATA RECORD. 

UNEXPECTED ORBIT DATA RECORD. 

UNEXPECTED ORBIT DATA RECORD. 

UNEXPECTED ORBIT DATA RECORD. 

UNEXPECTED ORBIT DATA RECORD. 

REQUESTEO ORBIT DATA NOT IN STORAGE. 

M140. BLOCK I READ FROM FILE 13 OF TAPE 1 (SER-EXD314I. 

REQUESTED ORBIT DATA NOT IN STORAGE. 

M140. BLOCK 1 READ FROM FILE. 14 OF TAPE I 1 SER.EX03141 . 

REQUESTED ORBIT CATA NOT IN STORAGE. 

•*** M140, BLOCK 1 READ FROM FILE IS OF TAPE 1 tSER>EX03141 . 

REQUESTED ORBIT CATA NOT IN STORAGE. 

♦*** M140. BLOCK 1 READ FROM FILE 16 OF TAPE 1 ISER-EX0314) . 

REQUESTED ORBIT DATA NOT IN STORAGE. 

•*** M140. BLOCK I READ FROM FILE 1 OF TAPE 2 C SER»EXD315J . 

REQUESTED ORBIT DATA NOT IN STORAGE. 

H140. BLOCK 1 READ FROM FILE 2 OF TAPE 2 I SER*EX031 S ) . 
requested orbit CATA NOT IN STORAGE. 

***» M140. BLOCK 1 READ FROM FILE 3 OF TAPE 2 (SER^ EX031 S J . 

REQUESTED ORBIT DATA NOT IN STORAGE. 

*•»* M140. BLOCK 1 READ FROM FILE 4 OF TAPE 2 I SER>ExD3I SI . 

REQUESTEO ORBIT DATA NOT IN STORAGE. 

MI40. BLOCK I READ FROM FILE 5 OF TAPE 2 ( SER^EXOSl SI . 

REQUESTED ORBIT DATA NOT IN STORAGE. 

H14D. BLOCK 1 READ FRCM FILE 6 OF TAPE 2 ISER=>EXD3 1 5 1 . 

REQUESTED ORBIT DATA NOT IN STORAGE. 

M140. BLOCK 1 READ FROM FILE 7 CF TAPE 2 ISER»EX031S) . 

REQUESTED ORBIT DATA NOT IN STORAGE. 

M140. BLOCK 1 READ FROM FILE B OF TAPE 2 I SER-EX03I 5) . 

REQUESTED ORBIT DATA NOT IN STORAGE. 

**** M140. BLOCK 1 READ FROM FILE 9 CF TAPE 2 ( SER=EX031 5) . 

REQUESTED ORBIT DATA NOT IN STORAGE. 

M140. BLOCK 1 READ FROM FILE 10 OF TAPE 2 ISER=EXD315J . 

REQUESTED ORBIT DATA NOT IN STORAGE. 

M140. BLOCK 1 READ FROM FILE 11 OF TAPE 2 ISER-EXD315I . 


ACCEPT REG ORBIT ITEMS. 
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I. Introduction 


There are six possible options to this PASS* The options can 
be executed in any combination depending on the parameters 
specified on the control card. The options are as follows: 


A. Engineering plot. 

B. Line summary. 

C. Calibration cards, 

D. X-ray tape, 

E. Good time cards. 

F. Main frame data tape. 


The engineering plots are constructed for the various log rate 
meters which monitor the counting rates of the scintillators 
comprising the instrument. Temperature, voltages, and status 
are also monitored. The output of the program is stored on a 
Memorex-3660 disk and then 7-track plot tapes are created in 
a second job step. The plots contain status information and 
housekeeping information rates for the central detector, cup^ 
and slab. 

Each line in the one-line summairY represents information for 
three minutes of satellite data. This corresponds to the 
accumulation of a complete gamma ray spectrum. Time, rates, 
status, sync errors, and warnings are printed. 

The calibration data consists of the central channels of the 
three gamma peaks in the calibration spectrum interpolated 
from a quadratic least squares fit to each peak. The total 
counts in each peak and the midpoint of the time interval during 
which the calibration was accumulated are also included. 

The X-ray data is obtained from the Experimenter tapes with 
detailed spin and timing information to allow exact time cor- 
relations of the X-ray data with solar activity indices from 
other experiments. This data is stored on a 9-tracK tape which 
is Fortran compatible and may be used on the IBM-36Q-«*H50,. A 
7-track reformatted version is also generated for use on a 
Varian-620^i minicom|iiij|j^er . 
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The good time cards consist of begin and end midpoint of the 
accumulation times for good continuous data. Only data col- 
lected when the central detector was on and with no time gaps 
is considered "good”. These cards are later used as input 
into Pass-Ill. 

f^sme data for each quadrant scan collected when power 
was on is written onto a 9-track tape along with analog 
^^ta and read-out time. The tape is then converted to 7— track 
for use on the Varian-620/i minicomputer with Tektronix-4010 
display unit interface. 
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Ill, Job Stream Schematic (PASS-’I) 
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JOB CONTROL language - PASS-I 


// »>» »60) , ‘CROTEAU » PASS- I • »CLASS=Et TI ME=10,REGlON=240Kt 

/ f MSGLEVEL= ( !» I ) 

//STEPl EXEC PGM=0S0P103C,TIME= 10 

//STEPLI8 DO DSN=USER.T548.SUBLIB,DISP=SHR 

//OECOMl DD UNIT=TAPE7,DISP=0LD,LABEL=(1,NL,,IN), 

OCB=( BLKSIZE=1000,OEN=1,TRTCH=C) » 
ff V0LUME=SER=EXD224 

//DEC0M2 DO UNIT=AFF=DECOMl,DISP=OLOtLABEL=(L,NL,,IN), 

^ f 0CB=(8LKSI ZE = 1000,0EN=1 ,TRTCH=C) , 

// V0LUME=SER=EXD307 

//DECDM3 DD UNI T=AFF=DECOM 1 , D I SP=OL D,L ABEL= ( 1 , NL , , I N ) , 

Z'' DCB=IBLKSIZE = 1000,DEN=1,TRTCH=C), 

// V0LUME=SER=EXD308 

//DECDM4 DD UN I T= AFF=DECOM 1 , DI SP =0L D » L ABEL = ( 1 ♦ NL t t I N ) ♦ 

// DCB=(BLKSIZE=1000,D6N=1,TRTCH=C) , 

ff V0LUME=SER=EXD346 

//0EC0M5 DD UNIT=AFF=DEC0M1,DISP=0LD,LABEL= ( 1,NL, , IN) , 
f f DCB=( BLKSIZE = 1000,DEN=1 , TRTCH=C ) t 

ff V0LUME=SER=EXD347 

//DEC0M6 OD UNIT=AFF=DEC0MI,DISP=0LD,LABEL=( ItNL, » IN) , 
f f DCB=( BLKSIZE=1000tDEN=ltTRTCH=C ) , 

// V0LUME=SER=EXD329 

//DEC0M7 DD UNI T=AFF=OECOM 1 , D I SP=OL D ,L AB EL = { i , NL , ♦ I N ) , 

// DCB=( BLKSIZE=1000,OEN=1 t TRTCH=C ), 

// V0LUME=SER=EXD330 

//DEC0M8 DD UNI T= AFF=DEC0M 1 , D I SP =0L D , LA 6EL= ( 1 , NL , t I N ) t 
f f DCB = (BLKSIZE=1000tDEN = l,TRTCH=C) , 

// V0LUME=SER=EXD317 

//DECDM9 DD UM I T= AFF=0EC0M1 , 01 SP=OLD ,L ABEL = ( 1 t NL r > I N ) t 
// DCB=(BLKSIZE=1000,DEN=1,TRTCH=C), 

// V0LUME=SER=EXD318 

//DECOMIO DD UNIT=AFF=DEC0M1,DISP=0LD,LABEL=( 1,NL, , IN) , 

DCB=( BLKSIZE=1000tDEN=ltTRTCH=C) t 

// V0LUME=SER=EXD319 

//DECOMll DD UNIT=AFF=DEC0M1,DISP=0LD,LABEL=(1,NL,,IN)» 
f f DCB=( BLKSIZE = 1000,DEN=1 ♦TRTCH=C ) , 

// V0LUME=SER=EXD029 

//DEC0M12 DD UNI T=AFF = DEC0M1 » D I SP=OLD , LA6EL= ( l^NL, , IN) , 

// DCB={ BLKSIZE=1000,DEN=1,TRTCH=C) , 

// VOLUME=SER=EXD030 

//FPUTOl DD UNIT = 2400,OISP=(NEWtKEEP)»LABEL=( 1,SL), 


// DSNAME=XRAY»DCB=(RECFM=FB,LRECL=76, BLKSIZE=1 520 ) , 

// V0LUME=SER=CC0920 

//FPUT02 DD UNIT=2400,DISP = (NEW,KEEP) »LABEL = U,SL ) , 

// OSN=MFDATA,DCB=(RECFM=FB,LRECL=908,6LKSIZE=908) , 

// VOLUME=SER=MFD020 

//FTWTOl 00 UNI T=SYSDA,DSN=£LPLOTCOMrDISP=( NEW, PASS ) » 

// DCR={ RLKSIZE=6500) , SP AC E= ( TRK , ( 2 00 , 1 00 ) , RLSE ) 

//FT19F001 DD UN I T = SY SDA , 01 SP= ( NEW , P ASS ) , DSN=C£NPL OT , 
f / DCB=(RECFM=FB,LRECL=24,BLKSIZE = 24) ,SPACE = < TRK,1 ) 

//MSGDD DD SYSnUT=A 
//SYSUDUMP DD SYSOUT=A 

//FT06F001 DD SY SOUT= A , DC8= ( R ECFM=UA , BLK SI Z E= 133 ) 

//FT07F001 DD SYSOUT=B , DCB= ( RECFM=F , BL K SI Z E=8 0 ) 

//FT15F001 DD S Y SOUT= A , DCB= ( R ECFM=UA , BLK Sl Z E =1 3 3 ) 
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//FT16F001 

//FT17F001 

//FT18F001 

//FT20F001 

//FT05F001 

11111 

/* 


DD SYS0UT=A,DCB=(RECFM=UA,BLKSIZE=133) 
DD SYS0UT=A,DCB=(RECFM=UA»BLKSIZE=133) 
DO SYSnUT=A,DCB=(RECFM=UA»BLKSIZE=133) 
DO SYSnUT=A,DCB= ( RECFM=UA , BL KS I ZE= 1 33 ) 
DD * 

1001 11 101 99 


//STEP2 EXEC 
//LKED.SYSLIB 
// 

// 

// 

// 


PL0TGLG,REGION=126KtTIME.G0=10 
DD 0SN=USER.T317.SUBLIB,DISP=SHR 
DD 0SN=lJSER.T548.SUBLIBtDlSP=SHR 
DD DSN=SYS1,F0RTLIB,DISP=SHR 
DD DSN=USER.PLOTLIB,DISP=SHR 
OD DSN=USER.SSPLIB,DISP=SHR 


//LKED.SYSLMOD * DD DSN=GGOSET ( SUE2 ) 
//LKED.SYSIN OD * 


QS0P104A OBJECT DECK *** 


/ * 

//G0.FT32F001 DD UN I T= ( TAPE7 , » DEFER ) t DSN= PLOTT ER , D I SP= ( N6 W » KEE P ) ♦ 
// LABEL=( 1,BLP) , 

// DCB=( DEN=ltTRTCH=ET, BUFN0=1 »RECFM=U»BLKSIZE=1024 ) , 

// V0L=SER=PLT001 

//GQ.FT32F002 DD UNI T = AFF = FT 32F001 ,OSN = PL OTTER »DI SP= ( NEW , KE EP ) , 


// 

// 

// 


LABEL=( 1»BLP) » 

DCB=(OEN=l,TRTCH=ETtBUFNO=l ♦RECFM=U,BLKSIZE=1024) , 
V0L=SER=PLT002 


//G0.FT32F003 DD UNI T=AFF=FT32F001 ,DSN=PL OTTER »D I SP= ( NEW» KE EP ) , 


// 

// 

// 


LABEL=( ItBLP) ♦ 

DCB=( DEN=l tTRTCH=ET,8UFN0=l »RECFM=U, BLKSIZE=1024) t 
V0L=SER=PLT003 


//GO.FT32F004 DD UN I T= AFF = FT 32F001 , DSN=PL OTTER ,D I SP= I NEW r KE EP ) » 


// 

// 

// 


LABEL=( 1,BLP) , 

DCB=I 0EN=1»TRTCH=ET,BUFN0 = 1 tRECFM=U» BLKSIZE = 1024 ) t 
VOL=SER=PLT004 


//GO.FT32F005 DD UN I T = AFF = FT 32F001 » DSN = PL OTTER ,D I SP= ( N EW » KE EP ) t 


// 

// 

// 


LABEL=( IrBLP ) t 

DCB = ( DEN=1»TRTCH = ET,BUFN0 = 1 , REC FM=U » BL KS I ZE = 1 024 ) , 
V0L=SER=PLT005 


//G0.FT32F006 DD UN I T= AFF=FT 32F001 , DSN=PL OTTER t D I SP= ( NEW , KE EP ) » 


// 

// 

// 


LABEL=( ItBLP) , 

DCB=(DEN=l»TRTCH = ETtBUFNO = l » REC FM=U t BLKS I ZE = 1 024 ) t 
VOL=SER=PLT006 


//GO.FT32F007 OD UNI T=AFF=FT32F001 r DSN=PL OTTER ,D I SP= ( NEW » KE EP ) , 


// 

// 

// 


LABEL=( 1,BLP) f 

DCB=(DEN=ltTRTCH=ET,BUFNO=l ,RECFM=U, BLKSIZE=1024 ) , 
V0L=SER=PLT007 


//GO.FT19F001 DD DSNAME=££NP LOT , 01 SP= ( OLD , DEL ETE ) ♦ DCB= ( RECFM=F » 


// 

//GO.FGETOl 
// 

//GO. SYSUDUMP 
//Go.SYSiN no 


LRECL=24»BLKSIZE=24) 

DD DSN=££PLOTCOM,DISP=( OLD, DELETE) , DC B= ( R EC FM=F , 
LRECL=6500,BLKSIZE=6500) 

DD SYSOUT=A 


// 



2-7 


V. Data Processing Program (OSOP103C) 


Program Language 


Fortran IV, H- Level 


Date Written 

Programmer 

Installation 

Computer 


: January 1972 
: A. Buck 

; University of New Hampshire 
Space Science Center 

: IBM-360-H50 


Subprograms Called ; FORTIM, FEEDER, MOVER, PLOUT , SUMARY, 

SUMCAL, FTWRIT, FPUT , CALNDR, QUASH, 
PUZZLE, OUTPUT 


The purpose of this program is to control the flow of data, 
to select and edit valid sections of data, and to output these 
selected sections according to desired options. 

The basic functions performed by the program are as follows: 


A. The initialization (and reinitialization) of variables 
referenced by OUTPUT. 


B. The input of experiment data using FEEDER. 


C. The rejection of data due to I/O errors, illogical 
data, indeterminate data, and high voltage off. 


D. The assignment of time sequence identifiers to each 
major frame. Locating and identifying the start of the 
background scan and start of solar scan. 


E. The selection of sets of consecutive input major frames 
for processing (optimally, 12 major frames comprising 1 
full scan are selected) 


1. Same file 

2. Same scan mode 


3. same calibration status 



4. Not over three minutes of data- 

5. Followed by start of background scan. 

F. The production of data anomaly messages. 

G. The production of summaries for each file, for each 
tape, and for the entire run. 

H. The output of: 

1. Data anomaly messages. 

2. File summary. 

3. Plot frame count. 

4. Return code. 

5. Engineering data tables to be plotted. 

I. The call to OUTPUT. 

The inputs to this program are : 

A. The experimenter data tape . 

B. The option specification card (otherwise known as the 
control card) . 

The outputs of this program are : 

A. For each run 

1. FEEDER messages - printer. 

2. Data condition messages - printer. 

3. File summaries - printer. 

4. count of plot frames - disk. 


5. Return code. 
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B. Optional Outputs 

1. Engineering plot tables - disk. 

2. Line summaries - printer. 

3. Calibration cards - card punch, 

4. X-ray data - tape. 

5. Good time cards - card punch. 

6. Main frame data - tape. 

Subprogram FEEDER uses common storage to provide this program 
with the input data. This program, in turn, provides subser- 
vient routines with the information they need to examine the 
selected data through common storage. In the following pages, 
the variables in common storage are described to help the reader 
follow program logic. 


A. Labelled common areas 

1. COMMON/HEADER/ : description of variables can 
be found in Section 1 of this report. 

2. COMMON/DECIDE/ : description of variables can 
be found in Section 1 of this report. 

3. COMMON/ I NT RUP/ : description of variables can 
be found in Section 1 of this report. 

4. Extension to COMMON/INTRUP/ ; the following is 
a list and description of the variables that form 
the extension to the interruption vector. 

a. X-ray tape parameters 


(Note: all variables beginning with an H are integer half words; 
variables beginning with a U are double precision floating 
point words; variables beginning with a Q are logical bytes 
(8 bits); all other variables follow the explicit Fortran con- 
ventions. ) 


HYRRl 

HYRR2 

HDAYl 

HDAY2 

HHRl 


: year of 1st major frame. 
; year of 2nd major frame. 
: day of 1st major frame. 

: day of 2nd major frame, 

: hour of 1st major frame. 



HHR2 

HMINl 

HMIN2 

SECl 

SEC2 

HSTATl 

HLSOL 

HMISOL 

HM2SOL 

HHSOL 

HLBKD 

HMIMKD 

HM2BKD 

HHBKD 

HSQTl 

HSQT2 

HBQTl 

HBQT2 

HSTAT2 

ASPINl 

ASPIN2 

AZZl 

AZZ2 

HELCAL 

HRAD 

HDANT 

HFIL 


; hour of 2nd major frame, 
minutes of 1st major frame, 
minutes of 2nd major frame, 
seconds of 1st major frame, 
seconds of 2nd major frame, 
status of 1st major frame, 
solar 7.5 - 15 keV (interpreted counts), 
solar 15 - 30 keV (interpreted counts), 
solar 30 - 60 keV (interpreted counts) . 
solar 60 - 120 keV (interpreted counts) . 
background 7.5 - 15 keV (interpreted counts) 
background 15 - 30 keV (interpreted counts) . 
background 30 - 60 keV (interpreted counts) . 
background 60 - 120 keV (interpreted counts) 
solar quadrant time of 1st major frame, 
solar quadrant time of 2nd major frame, 
background quadrant time of 1st major frame, 
background quadrant time of 2nd major frame, 
status word of 2nd major frame, 
spin rate of 1st major frame, 
spin rate of 2nd major frame, 
azimuth encoder time of 1st major frame, 
azimuth encoder time of 2nd major frame, 
electronic calibration: 1 = on 2 = off. 

radiation calibration: 1 = on 2 = off. 

day - night indicator: 1 = day 2 = night, 
extra half-word. 
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b. Main frame data tape parameters: 

HYR : year of read-out. 

HMO : month of read-out . 

HDA : day of read-out . 

HJUL ; Julian day of read-out . 

HHR ; hour of read-out . 

HMN : minutes of read-out • 

HSE : seconds of read-out . 

HAN(60) : analog subcora v/ords (10 words per major frame). 

HMFDAT(384) : main frame data (raw counts). 

HTGAP ; time gap indicator: '1’ = time gap ’O' = no time gap. 

HFRCNT ; # major frames processed in section. 

HEXTRA : extra word. 


c. Other arrays and variables provided in 
COMMON/INTRUP/ 


ASWSOD 

IMAGGY 

JXPANE (15) 

LPFPX 

QSOLl 

BG(4) 

IMFD 

KACDSN 

LSDOY 

QSOL2 

FRCTN 

IMGl 

KADDSN 

LSTPLT 

QSSCHG 

HLCAL (16) 

IMINH 

KAMDSN 

LXAPL® (16) 

QSWCON 

HLMODE (16) 

lOPT 

KAUSEX 

LXPANE 

SWSOD 

HLSOLR(16) 

IPLOT 

KFWHSC 

LXPLT(16) 

THFSOD 

HLSTAT (16) 

IQDl 

KGAPSC 

MAXEND 

TPFSOD 

HP REV 

IRCNT 

KJCDSN 

MPUZSC 

UBGDT 

HTFN(6) 

IRUNDA 

KJDDSN 

MS EVER 

UEGDT 

IBKSLl 

I RUNT 

KJMDSN 

MSGID (2) 

UHFSOC 

IBKSL2 

ISCNl 

KLOSSC 

MSGINC 

UPLTGO 

ICALIB 

ISCSTR 

KLSDSN 

MSGSET 

ULSTAT 

ICNTRO 

ISHDl 

KNCDSN 

MXPANE 


ICNTRl 

ISHLDO 

KNDDSN 

NAQUAD 


ICOFF 

ISTHLD 

KNMDSN 

NABOS 


IDAH 

ISTPHD 

KDMAND (7) 

NBOS 


IDAYHD 

ISTPNN 

LABOS 

NOSEQD 


IDNITE 

ISTPl 

LADOY 

NOWHV 


IDNl 

IXPANE 

LAMODE (16) 

NPFIL 


lERROR 

IXRAY 

LASHV 

QDSCHG(15) 


IFILST 

IXSEQD (3,7) 

LBOS 

QGAP 


IGDT 

IZERO(133) 

LHDECN 

QGIVUP 


IGNHE 

IZZ (16) 

LHFBLK 

QSET 


IGNl 

JPXMOD(47) 

LHFDOY 

QSHVOF 


IHRH 

JPXMTH(47) 

LHFPX 

QSHVON 


ILIST 

JXBGND{47) 

LI SEND 

QSLVOF 


ILSUMY 

JXDIEF 

LPFDOY 

QSLVON 




: time (seconds of day) of sync word values saved. 

: array of 4 half-words containing the alphameric 
characters SO, BO, BK, BO. 

; contains the quotient of 1/390.625. This value 
is used in the calculation of clock time. 

: calibration status code. HDCAL(l) = HLCAL(2): 

0 ^ no calibration. 

1 -»■ radiation calibration in progress. 

2 electronic calibration in progress. 

4 -► no calibration in progress but immediately 
follows a calibration. 

(Note; code 4 appears once only for the half-scan following 
a calibration. ) 

HLMODE(16) : scan mode indicator. HDMODE (1) = HLMODE(2): 

6 ■+ full scan. 

2 intermediate scan. 

1 short scan. 

0 ->• do not know. 

HDMODE (J) = half-scan length (major frames) of mode indicated 
by J'th beginning of scan in panes 15 - 29. 

HLMODE(l) is used to save most recent value of HDMODE from 
previously processed major frames. 

HLSOLR(16) ; solar - background indicator HDSOLR(l) e HLS0LR(2), 

HDSOLR(J) = 0 or 1 according as solar or background was 
indicated in J'th beginning of scan in panes 15 - 29. 

HLSOLR(l) is used tO save the most recent value of HDSOLR 
from the previously processed major frames. 

HLSTAT(16) : Status bits other than solar - background. 

HDSTAT(l) eHLSTAT(2); 

HDSTAT(J) = status bits for J'th beginning of scan in panes 
15 - 29. 


ASWSOD 

BG(4) 

FRCTN 

HLCAL (16) 
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HLSTAT(l) = used to save the most recent value of HDSTAT 
from previously processed major frames. 


HLSTAT(l) = “1 implies that there are meaningless values 
is HLSOLR(l) , HLMODE(l), LXPLT(l), HLCAL(l), ULSTAT, LSDOY, 
LSSOD. 

HP REV 

V 

• 

-1 indicates there is no previous status . 

HTFN{6) 


array containing file and tape delimiters. 

IBKSLl 

• 

refers to the scan mode of the beginning good 
time being saved in the good time card section 
of OUTPUT; = 1 for SO (solar) = 4 for BO (both). 

IBKSL2 

• 

refers to the scan mode of the ending good time 
being saved in the good time card section of 
OUTPUT: = 3 for BK (background) = 4 for BO (both) 

ICALIB 

s 

= 1 indicates that calibration cards are desired. 

ICNTRO 

m 

• 

status line hold area for central - detector 
on - off indication; 1 = on 2 = off. 

ICNTRl 

♦ 

alphameric representation of the central - 
detector on - off indication for status line. 
ON or OFF . 

ICOFF 

• 

* 

hold area for central detector on - off indication 
in the plot section of OUTPUT. 

IDAYH 

• 

saved day of last printed status line. 

IDAYHD 

9 

# 

day - night hold area in x-ray section of OUTPUT . 

IDNITE 

9 

• 

hold area for the* nvimeric representation of day - 
night condition for status line: 1 = day 2 = nite. 

IDNl 

9 

• 

alphameric representation of day - night indication 
for status line: DAY or NITE. 

lERROR 

■ ' 

= 1 if a problem occurred in OUTPUT that requires 
run termination by the main program, (^.g. I/O 
error occurred in tape write) . 

IFILG 

# 

9 

filler . 

IFILR 

9 

9 

filler . 

IFILST 

9 

9 

= 1 to indicate a file start which signifies 
that a status line should be printed . 
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IGDT 

IGNHL 

IGNl 

IHRH 

ILIST 

ILSUMY 

I MAGGY 

IMFD 

IMGl 

IMINH 

lOPT 


IPLOT 

IQDl 

IRCNT 

IRUNDA 


: = 1 to indicate that good time cards are desired. 

; hold area for gain indication in line summary 
section of OUTPUT: 1 = hi 2 =* lo. 

: alphameric representation for the gain indication 
to be printed in the status lines HI or LO. 

; saved hours of day printed in the last status 
line . 

; = 1 to indicate line summary is desired. 

: = 1 to force program to save day, hour, minutes 
and seconds of the status line. 

: hold area for magnetometer-gyro reference to be 
printed in status line : 1 = magnetometer 2 = gyro . 

: = 1 to indicate that a main frame data tape is 
desired. 

: alphameric representation of the magnetometer- 
gyro reference to be printed in status line. 

MAG or GYRO. 

: saved minutes of status line. 

: 0 = combination of options desired. 

1 = engineering plot only. 

2 = line summary only . 

3 - calibration cards only. 

4 = x-ray tape only. 

5 = good time cards only . 

6 = main frame data tape only . 

lOPT is read in from the control card • 

: == 1 to indicate the engineering plot is desired. 

; alphameric representation of the normal - alternate 
quadrant to be printed in status line; NORM or' ALT. 

; the number of main frame data tape records written. 

; run date (argument used in call to FORTIM) . 
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I RUNT 
ISCNl 

ISCSTR 

ISHDl 

ISHLDO 

ISTHLD 

ISTPHD 

ISTPNN 

ISTPl 

IXPANE 

IXRAY 

IXSEQD(3,7) 


IZER0(133) 

IZZ (16) 
JPXMOD (4 7) 


run time (argument used in call to FORTIM) . 

alphameric representation of the scan mode to 
print in the status line. F, I, or S, 

hold area for the scan mode to be printed in 
status line: 1 = FULL 2 = INTER 3 = SHORT. 

alphameric representation of the shield on - off 
indication to be printed in the status line : ON or OFF 

numeric representation of the shield on - off 
indication to be saved with the printing of the 
status line: 1 = ON 2 = OFF, 

status hold area in x-ray tape section of OUTPUT. 

step number hold area in plot section of OUTPUT . 

step number hold area in line summary section of OUTPUT 

step number print area for status line. 

index of first pane of current section. 

= 1 to indicate that the x-ray tape option is 
desired. 

for J = 1, NOSEQD 

IXSEQD(I,J) = index of I'th pane, J'th digital 
sequence. (An index of 0 implies fill is to 
be used. ) 

an array equivalent to various other arrays 
for initialization purposes. 

array equivalent to IXAPLT(15). 

array used to express scan mode identification 
code as a function of monitor array index : 

0 not determined. 

1 full. 

2 intermediate. 

3 ->■ short. 


4 ->■ cannot tell. 
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JPXMTH(47) 


JXBGND(47) 


array used to express method of assigning scan 
mode identification as a function of monitor 
array index. 

A method code of : 

0 implies sheer guessing due to complete lack 
of scan mode clues. 

1 implies mode determined from the first of 
two continuous status words , 

2 implies mode determined throughout a complete 
scan from valid status word within the scan. 

3 implies mode determined filling an identifi- 
cation gap by using the HGAPOS and HIDFIL 
arrays . 

4 implies mode determined from analog data. 

5 implies mode determined by free wheeling. 

array used to express start of complete scan 
as a function of monitor array index; 

JXBGND(J) = 1 if a complete scan starts in major 
frame corresponding to monitor index = J 
- 0 otherwise 


JXDIFF 
JXPANE (15) 
KACDSN 

KADDSN 

KAMDSN 

KAUSEX 


KFWHSC 

KGAPSC 


: index conversion factor = CJPXID(N)-N) . 

; pane indices of frames containing status words. 

; first calibration print data set (not used after 
program maintenance) . 

: first dump data set. 

: first message print data set. 

: dump necessity indicator : 

0 do not dump . 

1.3 status word loss. 

2.3 ->■ analog sync loss. 

: message severity code of *1' . 

: message severity code of '2' . 
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KJCDSN 
KJDDSN 
KJMDSN 
KLOSSC 
KLSDSN 
KNCDSN 
KNDDSN 
KNMDSN 
KOMAND (7) 

LABOS 
LADOY 
LAMODE (16) 


LASHV 

LBOS 

LHDECN 

LHFBLK 

LHFDOY 

LHFPX 

LISEND 


increment for calibration print data set, 

increment for dump data set. 

increment for message print data set. 

message severity code '2', 

line summary data set (logical unit 6). 

last calibration print data set. 

last dump data set. 

last message print data set. 

area that contains the data requirements desired 
by the. user and requested by FEEDER, 

count of analog sync words recognized in section. 

time (day of year) of sync word values saved. 

scan mode indicator; JAMODE(l) = LAMODE (2) 

JAMODE(J) contains the mode (1^-full, 2-»-intermedi- 
ate, 3.4-short, 4^-not available) indicated in ASSC 
1-2 following the analog sync word whose plot 
index is given in JXAPLT(J). 

LAMODE (1) is used to save the mode corresponding 
to LXAPLT(l) . 

Frame containing scan mode must immediately (in 
time) follow sync word frame. 

high voltage indicator for previous section 
(0 = of f , 1 = on) . 

count of status words in current section. 

Decomm run number * 100 + file count. 

block number of last major frame handled (whether 
or not included in line summaries). 

time (day of year) of last frame handled (whether 
or not included in line summaries) . 

plot index of last major frame handled (whether 
or not included in line summaries). 

maximum plot index for which entries allowed- 
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LPFDOY 

LPFPX 

LSDOY 
LSTPLT 
LXAPLT (16) 


LXPANE 
LXPLT (16) 


MAXEND 

MPUZSC 
MS EVER 
MSGID (2) 
MSGINC 
MSGSET 
MXPANE 

NAQUAD 

NABOS 

NBOS 

NOSEQD 


: time (day of year) of the last major frame processed 
(included in line summaries) . 

: plot index of last major frame processed (included 
in line summaries) . 

: time (day of year) of saved status parameter values. 

: plot index of the last pane to have been processed. 

: plot indices; JXAPLT(l) = LXAPLT(2). 

LXAPLT (1) = -10,000^ no plot index saved from 
previous data. 

; index of last pane of current section . 

: plot index 6f frame containing status word ; 

JXPLT(l) = LXPLT (2). 

JXPLT(J) = plot index for J'th beginning of scan 
in panes 15 - 29. 

LXPLT (1) is used to save most recent value of 
JXPLT from previously processed major frames. 

; GLB of pane indices after current section due 
to status word synchronization . 

; message severity code of 'O' . 

: message severity codes . 

: alphameric message set fields . 

; message set count increment . 

: message set counter . 

; number of last pane for current section due to 
status word sync requirements . 

; hold area for normal - alternate quadrant to be 
printed in status line: 1 = normal 2 = alternate 

; count of analog sync words recognized or count 
of sync words for analog Word 1 in panes 15 - 29. 

: count of status words recognized in window or 
count of beginning of scans in panes 15 - 29. 

; count of sequences selected for x-ray processing 
or number of digital sequences identifiable in 
current section . 
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NOWHV 

NPFIL 
QDSCHG (15) 

QGAP 

QGIVUP 

QSET 

QSHVOF 

QSHVON 

QSLVOF 

QSLVON 

QSOLl 

QSOL2 

QSSCHG 

QSWCON 

SWSOD 

THFSOD 


: high voltage indicator for current section 
(0 = on 1 = off) . 

: number of entries in IHORB. 

: QDSCHG (J) =.TRUE. implies the status indicated 
for the J'th beginning of scan in panes 15 - 29 
represents a change from the status in the pre- 
vious beginning of scan*- [The solar-background 
bit and the low-order dead time bits are ignored 
in the setting of QDSCHG (J).] 


: .TRUE, indicates time gap is present. 

: program perplexity indicator. 

.TRUE. -► dump, do not process. 

: = .TRUE, indicates good time card information to 
be punched. 

: shield or central detector OFF condition observed 
(in DECISION window) . 

: shield or central detector ON condition observed 
(in DECISION window) . 

: low voltage OFF condition observed (in DECISION 
window) . 

: low voltage ON condition observed (in DECISION 
window) . 


: = .TRUE, if normal background quadrant has been 
processed for main frame data section of OUTPUT 
and solar quadrant is now to be processed. 

: = .TRUE, if abnormal (time gap) background 
quadrant has been processed and solar quadrant 
is now to be processed. (Main frame data sec- 
tion of output',) 

: any-status-change-in-section indicator. 

: status word continuity indicator. 

: time (seconds of day) of saved status parameter 
values* 

: time (seconds of day) of last major frame handled 
(whether or not included in line summaries) . 



2-20 


TPFSOD 

• 

time (seconds of day) of last major frame pro- 
cessed (included in line summaries) . 

UBGDT 

• 

beginning good time in seconds of century. 

UEGDT 

m 

ending good time in seconds of century. 

UHFSOC 

m 

• 

time (seconds of century) of last major frame 
handled (whether or not included in line summaries). 

UPLTGO 

ft 

time (seconds of century) of first plot element. 

ULSTAT 

ft 

• 

time (seconds of century) of saved status para- 
meter values. 


B. Unlabelled common area; 


HHOUR(1300) 
HDAY (1300) 
HNALT(1300) 

HMAG (1300) 

HCOFF (1300) 
HSOFF (1300) 
HTEL(1300) 
HDET (1300) 
HCNTR(1300) 
HSPRT (1300) 
HLOW(1300) 
HSGAL (1300) 
HBGAL(1300) 
HSGAH(1300) 
HBGAH(1300) 
HCUPS (1300) 


; hour of each major frame: -2 = no value, 

: day-night status: 0 = no value 1 = day 2 = night, 

: normal-alternate quadrant: 0 = no value 1 = normal 
2 = alternate. 

: magnetometer-gyro reference: 0 = no value 
1 = magnetometer 2 = gyro. 

; central detector; 0 = no value 1 = on 2 = off. 

: shield; 0 = no value 1 = on 2 = off. 

: electronic temperature; -2 = no value. 

: detector temperature; -2 = no value, 

: central detector voltage: -2 = no value. 

: shield counts; -2 = no value. 

; low voltage; -2 = no value . 

; solar gamma counts .3-9 MeV ; -2 = no value. 

; background gamma counts .3-9 MeV; -2 = no value. 

; solar gamma counts > 9 MeV; -2 = no value. 

; background gamma counts > 9 MeV; -2 = no value. 

: solar cup charged particle count: -2 = no value. 
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HCUPB(1300) 
HSLBS(1300) 
HSLBB (1300) 
HGAIN(1300) 
HSTEP(1300) 
HSCN (1300) 

IHORB (10) 
IXHORB(IO) 
IDAY 
LENPLT 


background cup charged particle counts; -2 = no value. 

solar slab charged particle counts: -2 = no value. 

background slab charged particle counts; -2 = no value. 

gain: 0 = no value 1 = high 2 = low* 

step number: 0 = no value -2 = zero counts 

scan mode : 1 = full 2 = intermediate 3 = short 
0 = no value. 

array of orbit numbers. 

plot indices for the orbit numbers. 

day of year at start of plot frame. 

value equals last valid plot index for plot frame. 


C. Variables and arrays of interest either not in common 
storage or equivalenced to arrays in common. 


HAMASK (47) 
HASBIT (47) 

HASTEP (47) 

HMFBIT (47) 

IDTAPF 

IXAPLT(30) 

IXASEQ (47) 

IXBEGS 

IXNEXS 

IXP15 

JDSID(47) 


analog status masks (elements 1-32 unused) . 

analog status indication bit value (elements 
1-32 unused) . 

analog value step = ■ (elements 

1-32 unused) . 

main frame status bits (status bits propagated 
for half-scans in which the status word is found) 
(elements 1-27 unused). 

tape and file identifier for current file. 

IXAPLT(I) = (UPTIME (1,1) - UPLTGO) /15 . 36 = index 
of plot array for pane I. 

analog subcom sequence identifiers (1 -► sync 
word) (elements 1-27 unused). 

plot index for scheduled start of scan. 

plot index for scheduled start of scan following 
section. 

plot index for frame in pane 15. IXP15 = IXAPLT(15). 

digital subcom energy ID indicators (elements 
1-32 unused) . 
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JPXID (47) 

: plot indices in time sequence reconstruction 
(elements 1-32 unused) . 

JPXPAN(47) 

: pane indices in time sequence reconstruction 
0 missing frame. 

JXAPLT (15) 

; JXAPLT(l) s LXAPLT(2). 


JXAPLT (J) = plot index for major frames containing 
the analog sync word in panes 15 - 29. 


LXAPLT(l) is used to store the plot index for 
the most recent identifiable analog sync word 
from previously processed major frames. 

KADDEN (30) 

: section addend parameters for statistics. 


1. count incrementer for sections processed. 

2. count incrementer for sections bypassed. 

3. count incrementer for complete sections processed. 

4. count incrementer for complete sections processed with 
no analog flags. 

5. count incrementer for complete sections processed with 
no MF flags. 

6. number of scheduled status words missing or not recog- 
nized (processed sections) . 

7. number of time gaps (imbedded within a Decomm file) 

- total. 

8. number of time gaps (imbedded within a Decomm file) 

- total "short". 

9. major frames lost due to time gaps. 

10. major frames bypassed. 

11. total major frames processed. 

12. major frames processed with no flagged analog. 

13. major frames processed with no flagged DSF, 

14. major frames processed with no flagged MF. 

15. total x-ray sequences selected for processing, 

16. total x-ray sequences selected with no flags for digital 
subcom source data. 
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17. sync error instances count for frames processed. 

18. sync error bit count for frames processed. 

19. contradiction count (one message each). 

20. day-night change count (of sections). 

21. radioactive calibration count (of sections starting 
with radiation calibration in progress) • 


22. electronic calibration count (of sections starting with 
electronic calibration in progress) . 

23. total sections (processed or bypassed) . 


24 - 30. spares. 

KFSUMY(40) : file summary information. KFSUMY(l) h HFSUMY(l): 


KRSUMY 


KTSUMY 



HFSUMY 

RFSUMY 

accumulators for section addends 


1-30 

I/O errors detected 


31 

begin time parameters (year, day 
of year, hour of day, minutes. 

seconds ) 

63-67 


end time parameters (year, day 
of year, hour of day, minutes, 

seconds ) 

68-72 


tape sequence count 

73 

} 37 

file sequence count 

74 

spares 


38-40 


run summary information. KRSUMY (1) 5 HRSUMY(l): 


HRSUMY 

accumulators for section addends 
I/O errors detected 

earliest begin time parameters 63-67 
latest end time parameters 68-72 

final tape sequence count 73 

total files summarized 74 

files summarized but completely 
bypassed 

spares 39-40 

tape summary information. KTSUMY (1) = HTSUMY(l): 



KTSUMY 

KTSUMY 

accumulators for section addends 


1-30 

I/O errors detected 


31 

earliest begin time parameters 

63-67 


latest end time parameters 

68-72 


tape sequence count 

73 


final file count 

. 74 



spares 


KRSUMY 

1-30 

31 


38-40 
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KIOERR(2,3) 


LENHAF (4) 

LISPLT 

LXEND 

LXSYND 

LXSYNW 

MAXGAP 

NPANES 

QNOPLT 

QSSCHG 

ULSYND 

ULSYNW 


I/O error accumulators. 

KI0ERR(1,J) = tape and file ID for J'th accumulator. 

KI0ERR(2,J) = count of I/O errors. 

conversion table to get half-scan length from 
scan mode code. 

number of elements in arrays used to store values 
to be plotted, 

GLB of pane indices after current section. 

plot index for pane containing most recent "clear” 
low energy ID for digital subcom data. 

plot index for pane containing most recent "clear” 
sync word for wheel subcom data. 

maximum number of missing panes allowed without 
forcing plot output. 

count of panes in current section. 

.TRUE, if plots not wanted., 

.TRUE, implies a change in status exists at 
some major frame in the current section. 

time (seconds of century) of major frame con- 
taining most recent "clear" sync word for energy 
ID for digital subcom data. 

time (seconds of century) of major frame con- 
taining most recent "clear" sync word for wheel 
subcom data. 
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VI. Subroutine CALIB (X,NSUM) 


Program Language 
Date Written 
Programmer 
Installation 

Computer 
Dummy Arguments 


Subprograms Called 
Description 


Fortran IV, G-Level 
August 1972 
S. Croteau 

University of New Hampshire 
Space Science Center 

IBM-360-H50 

1) X: an output array of three floating 
point elements containing the three 
peak channels for the spectrum. 

2) NSUM: an output array of three full 
word integer elements containing the sum 
of counts surrounding each peak. 

None 

This subroutine locates the two highest 
peaks and ascertains that they are valid 
peaks as opposed to bit errors. The pro- 
gram then calculates an approximate guess 
channel for the third peak. It then 
searches for the third peak within a range 
of the guess channel, -5 to the quess 
channel, +5. The center of peak is then 
calculated for the three peaks (results 
are stored in X) and the counts are summed 
for each of the three peaks (results are 
stored in NSUM) . 

Program logic is as follows: 

Ej = Cl (n^+no ) ^ 

1. Find ni (highest counts/channel) 

2. Find n .2 (second highest counts/channel) 
Check if : 

3. aE = 1.33-1.17 =* Constant 
|n2-ni I <. 15 

4. ni < n2 
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5. Define; na' = 




2.525 


17/{ni+no)2 


6. Find na (highest countS/:channel) 
between na'-5 <, na < na'+5 


7. Define X (n . ) 


+ 2 


N . 


— lii lii j . 1,2,3 

* 3+1 

8. Define NSUM(Nj) 

+2 

N. = 5 N.^. i = 1,2,3 

3 itl2 3 + 1 


80.2 
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VII. Subroutine 

Program Language 
Date Written 
Progranuner 
Installation 

Computer 
Dummy Arguments 


Subprograms Called 
Description 


CALNDR (USOC , lY R , IMO , IDA , IHR , IMN , SEC ) 


: Fortran IV, G-Level 

: February 1972 

: S. Croteau 

: University of New Hampshire 

Space Science Center 

: IBM-360-H50 


; 1) USOC; double precision input floating- 

point variable containing seconds of 
century. 


2) lYR: 
taining 

3) IMO; 
taining 

4) IDA; 
taining 

5) IHR; 
taining 

6) IMN; 
taining 


output 

year. 

integer 

full 

word 

con- 

output 

month. 

integer 

full 

word 

con“ 

output 

day. 

integer 

full 

word 

con- 

output 

hour. 

integer 

full 

word 

con- 

output 

minutes 

integer 
^ • 

full 

word 

con- 


7) SEC: output floating point full word 
containing seconds. 


• None 

: This subroutine accepts seconds of cen- 

tury as input via the argument list and 
converts this time to calendar time — 
year, month, day, hours, minutes, and 
seconds. The input value in seconds of 
century is a 64-bit floating point word. 
The output variables are 3 2 -bit integers 
except for the seconds which are stored 
in a 32-bit floating point word. 



VIII;. . Subprogram FEEDER 


Refer to Section 1 of this report for a description of thi 
program. 
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IX. Subroutine FORTIM (IRUNDA, IRUNT) 


Program Language 
Date Written 
Programmer 
Installation 

Computer 


: IBM 0/S 360 Assembler Language 

: July, 1969 

: A. Buck 

: University of New Hampshire 

Space Science Center 

: IBM-360-H50 


Dummy Arguments 


Subprograms Called 
Description 


Example 


: 1) IRUNDA: output integer full word 

containing the date, 

2) IRUNT: output integer full word 
containing the time of day in hundredths 
of a second. 

: None 

: Subroutine FORTIM uses the time macro 

to fetch the date and the time from 
the computer clock. The date and the 
time are only as accurate as the cor- 
responding information entered by the 
operator. 

• FORTIM is called at 2,37 seconds after 
3 minutes after 1 o'clock, A.M. on 
February 10, 1970. When control is 
returned from subroutine FORTIM, IRUNDA 
contains 70041 in binary form and IRUNT 
contains 3780237 in binary form. 
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X. Subroutine FPUT (IDSN, ICMD, IRSLT,IOVEC) 


Program Language 
Date Written 
Programmer 
Installation 

Computer 
Dummy Arguments 


IBM O/S 360 Assembler Language 
February 4, 1971 
A . Buck 

University of New Hampshire 
Space Science Center 

IBM-360-H50 

1) IDSN : a full word integer input 

parameter specifying the data set to 
which activity is directed. The inte- 
ger stored at IDSN must be greater than 
zero but less than 21. 

2) ICMD s a full word input integer vari- 
able containing a request type code which 
specifies the activity to be performed. 

a) ICMD = 1 implies that a logical 
record is to be written, 

b) ICMD = 2 implies the data set 
is to be ended. Once ended, the 
data set is unavailable to the 
calling program through the same 

• data set number. 

3) IRSLT: a full word output integer 
variable in which subroutine FPUT can 
place a return code as follows- 

a) IRSLT = -1 implies request was 
illegal for one of the reasons 
belowJ 


i. IDSN contained a value 
less than 1 or greater than 


20 . 


ii. ICMD contained a value 
less than 1 or greater than 

2 . 

iii. A write request was made 
to a data set that had-. been 
ended . 
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iv. An endfile request was 
made to a data set either 
before the first write request 
or after the data set had been 
ended. 

b) IRSLT = 0 implies request was 
executed normally. 

c) IRSLT = 1 implies an I/O error 
occurred while writing a block. 

The data set was ended. 

4) lOVEC; an input vector whose high 
order byte is the first byte to be written 
(when ICMD =1) in a logical record. 

The number of bytes written is specified 
by the LRECL subparameter on the DD state- 
ment describing the data set. 

Subprograms Called : None 

Description : Subroutine FPUT is a QSAM output sub- 

routine to write logical records from 
an area defined by the calling program. 
This routine is specifically designed 
to allow a Fortran program to create 
without format control an extensive 
data set to which the DCB subpararaeter 
•recfm = FB' applies. For data sets 
to which 'RECFM = F' or RECFM = U' 
applies, subroutine FTWRIT may be more 
easily used. 

Subroutine FPUT can manage as many as 
20 data sets in the same job step. As 
many as desired may be active simulta- 
neously. Once the endfile command 
has been issued to a data set, sub- 
routine FPUT will refuse to perform 
any further activity for that particular 
data set. The large number of data 
sets allows writing as many as 20 files 
to the same magnetic tape volume as a 
possible application. 

DD Statements required... 

If suboutine FPUT is called with IDSN=1 
(or 2,..., or 20) the user must supply 
a DD Statement having the DD name FPUT 01 
(or FPUT02,..., or FPUT20) . The DD State- 
ment must include the DCB subparameters 
'RECFM', 'LRECL', and 'BLKSIZE' but must 
omit 'DSORG' and ^MACRF’ . 



XI. Subroutine FTWRIT (IDSN,ICMD,IEXT,IRSLT,OUTBLK) 


Program Language 
Date Written 
Programmer 
Installation 

Compute r 
Dummy Arguments 


IBM 0/S 360 Assembler Language 
December 31, 1970 
A. Buck 

University of New Hampshire 
Space Science Center 

IBM-360-H50 

1) IDSN: a full word input integer 
variable specifying the nximber tl/2, 
or 3) of the data set to which the 
command is directed. 

2) ICMD; a full word input integer 
variable containing a command code 
specifying the action to be taken by 
the sxibroutine as follows... 

a) ICMD = 1 : write a block to 
the data set. 

b) ICMD = 2 : write a tape mark 
and position the tape past the 
tape mark. 

c) ICMD = 3 ; close the data set. 
(endfile) . 

3) lEXT; a full word input integer 
variable containing the number of 
bytes to be written when ICMD = 1. 

(If the value of ICMD is not 1, the 
value of lEXT is ignored.) 

4) IRSLT: a full word output integer 
variable into which subroutine FTWRIT 
can place a response code. When con- 
trol is returned to the calling pro- 
gram the meaning of the contents of 
IRSLT is as follows... 
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Subprograms 

Description 


a) IRSLT = -1 ; Command was invalid. 
One of the following occurred 

i. IDSN was not 1, 2, or 3. 

ii. ICMD was not 1, 2, or 3. 

iii. A request to process the 
data set was made after the 
data set had been closed. 

b) IRSLT. = 0 : Command executed 
successfully. 

c) IRSLT - 1 : An uncorrectable 
I/O error occurred while writing 
the block. The data set was closed. 

5) OUTBLK; any variable or array element 
(integer, real, logical or complex) whose 
high order byte will be the first byte 
' written to the block when ICMD = 1. 

Called : None 

: This subroutine is a BSAM output routine 

to write data sets to which the DCB sub- 
parameter 'RECFM = U' applies. As many 
as 3 such data sets may be open at one 
time. The subroutine... 

1) Writes blocks stored in the 
calling program. 

2) On command, will write a tape 
mark and position the tape beyond 
the tape mark. This enables the 
calling program to write more than 
one file on an unlabelled tape.' with- 
out additional DD Statements. 

3) On command, will close the data 
set. Once closed, the subroutine 
will consider invalid all subse- 
quent requests to process the data 
set. 

4) Returns a response code to the 
calling program to indicate the 
success or failure of the subroutine 
to execute the command. 
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DD Statements required... 

A DD Statement having the name 
FTWTOl (or FTWT02 or FTWT03) must 
be supplied if subroutine FTWRIT 
is called with IDSN - 1 (or 2 or 
3). The only DCS subparameters 
heeded on the DD Statement are 
■BLKSIZE' and, where appropriate, 
'DEN' and 'TRTCH'. The label 
subparameter 'LABEL = (,,rOUT)' 

must not be used for any data set 
to which the write-tape-mark command 
(ICMD =2) is directed. 


! 
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XII. Subroutine 

Program Language 
Date Written 
Programmer 
Installation 

Computer 
Dummy Arguments 


Subprograms Called 
Description 


MOVER (AREA1,IDISP1,AREA2 ,IDISP2,LEN) 


: IBM 0/S 360 Assembler Language 

: March 23, 1971 

: A. Buck 

; University of New Hampshire 
Space Science Center 

: IBM-360-H50 

: 1) AREAl: any variable or array element 

(integer , reAl , logical, or complex) 
whose highest order byte is used as 
the 'output vector reference byte'. 

2) IDISPl: a full word input integer 
whose value is the number of bytes to 
be skipped, starting with the 'output 
vector reference byte’ to locate the 
highest order byte of the first (out- 
put) area. 

3) AREA2; any variable or array element 
(integer, real, logical, or complex) 
whose highest order byte is used as 
the 'input vector reference byte'. 

4) IDISP2 ; a full word input integer 
whose value is the number of bytes 

to be skipped, starting with the 'input 
vector reference byte' to locate the 
highest order of the second (source) 
area. 

5) LEN : a full word input integer whose 
value is the number of bytes to be moved. 

: None 

: Subroutine MOVER causes the contents of 

a first area of core storage to be re- 
placed by the contents of a second area 
of same length as the first. Replace- 
ment occurs on one byte at a time starting 
at the highest order bytes of the two 
areas and proceeding through progressively 
lower order bytes. Any number of bytes 
may be moved by one call to subroutine 
MOVER. 
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Programming notes... 

The two areas may overlap in any way. 
Suppose the Fortran calling program 
has dimensioned a vector by the state- 
ment 

Dimension A (1000) 

Examples are shown below in the use of 
subroutine MOVER to 'Propagate' or to 
'Downshift' values in the vector. 

Propagation. . . 

The two statements 

A(l) = 0.0 

CALL MOVER (A , 4 , A, 0 , 3996 ) 

Could be used in place of the loop 
Do 1 I = 1,1000 

1 A(I) = 0.0 
Downshifting. . . 

The statement 

CALL MOVER (A, 0 , A , 8 , 3992 ) 

Could be used in place of the loop 
Do 2 I = 1,998 

2 A(I) = A(I+2) 
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XIII. Subroutine OUTPUT (version C) 


Program Language 
Date Written 
Programmer 
Installation 


: Fortran IV, H- Level 
; January 1972 
: S. Croteau 

: University of New Hampshire 
Space Science Center 


Computer : IBM-360-H50 

Dummy Arguments : None 

Subprograms Called : FEEDER, MOVER, CALIB, CALNDR, FPUT 


/ 


The purpose of this program is to output the experiment data 
in any of six different forms. The options desired are speci- 
fied by a control card read by the main program. The options 
are : 

A. Engineering plot 

B. Line summary 

C. Calibration cards 

D. X-ray tape 

E. Good time cards 

F. Main frame data tape 


Any combination of options may be selected for one production 
run. 

Subroutine OUTPUT receives the input data from the main data 
processing program and from FEEDER through common storage. 
When called by the main program, OUTPUT expects a section of 
coherent data to be stored in panes 15 - 26 of the DECISION 
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window. If possible, this should cover three minutes of accu- 
mulated data and begin with a background scan. Each pane of 
the decision window contains one major frame of data. 

There is a program section in OUTPUT for each different option. 

It is, in fact, six programs in one. The following is a descrip- 
tion of each of these program sections: 


A. Engineering plot section: 

The plotting section of OUTPUT creates tables that are 1300 
half-words long corresponding to the 1300 elements in each 
engineering plot frame, (13.0 in/. 01 in). OUTPUT processes 
up to 12 major frames per call. This means that up to 12 
elements of each tables are filled with one call to OUTPUT. 
The main data processing program sets up plot indices to 
be used by OUTPUT. After the tables have been filled, 
they are stored on disk by the main program and the plot 
index is reset to start a new plot frame. The tables for 
each engineering plot frame are stored on disk until the 
end of the run. In the second job step, the disk is read 
by the plot production program and the plotter tapes are 
generated. 


B. Line S'ummary section: 

The line summary section prints out two types of lines; 
the status line and the summary line. The status line is 
an alphanumeric representation of status, shield and cen- 
tral detector on-off, and the step number. This line is 
printed whenever one of these values changes. An asterisk 
precedes the changing value. This line is also printed 
at the start of each new file and after a long time gap. 

The summary line is a summary of analog and status infor- 
mation for three minutes of data or one fiill^ scan, three 
intermediate scans, or six short scans. The time printed 
is the beginning of accumulation time. The status word 
printed with the line is the status that was read out with 
the data and is not the status at accumulation. The message 
number printed with a summary line associates that line 
with an error message in the error listing. 


C. Calibration card section: 


This section interrogates HDCAL(l) to see if the main frame 
data was accumulated in the calibrate mode. If so, FEEDER 
is called to provide the main frame data in partitions 
1 - 12 of the SCAN window. Subroutine CALIB is then called 
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to identify the three peaks, 
channels , and sum the counts 
peak channels and counts are 
with the time at midpoint of 


calculate the integrated peak 
surrounding each peak. The 
returned and punched out along 
accumulation . 


D. X-ray section: 


The x-ray data is provided to this program through the 
DECISION! window (i.e. DECIDE common area) in two forms; 
source values as they are on the Decomm tape or x— ray 
counts corrected for scaling. The values that are used 
to create the x-ray tape in this program are the corrected 
or interpreted values. The digital subcom data for one 
cycle is contained in three major frames. The third major 
frame for one cycle is the first major frame for the next 
cycle. 

Major frame #1 contains: 


DSM WORD 

# 


' 

9 


60 - 120 keV 

Data - Background (for previous 




cycle) 

19 



Energy ID (Low) all zeros 

22 



Quadrant time - Solar 

23 


7.5 - 15 keV 

Data - Solar 

24 



Quadrant time - Background 

29 


7.5 - 15 keV 

Data - Background 

47 


15 - 30 keV 

Data - Solar 

Major frame 

#2 contains; 


DSM WORD 

# 



9 


15 - 30 keV 

Data - Background 

19 



Energy ID (High) all ones 

22 



Quadrant time - Solar 

23 


30 - 60 keV 

Data - Solar 

24 



Quadrant time - Background 

29 


30 - 60 keV 

Data - Background 

47 


60 - 120 keV 

Data - Solar 


Major frame #3 contains: 

DSM WORD # 

9 60-120 keV Data - Background 

19 Energy ID (Low) all zeros 

22 Quadrant time - Solar 

23 7.5-15 keV Data - Solar 

24 Quadrant time - Background 

29 7.5 - IS.keV Data - Background 

47 15 - 30 keV Data - Solar 
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This program section creates one x-ray tape record for 
each x-ray cycle. A fill of -I's is used to represent 
missing frames. 


E. Good time card section: 

The good time card section is responsible for making the 
decision as to whether the data. in a spectrum is to be con- 
sidered good or whether it is to be bypassed. The criteria 
used for determining data to be bypassed are as follows: 

1. Central detector off 

2. Time gap (interfile gap) . 

3. Any information missing - sync word loss, major 
frame loss . 

The program checks LASHV (last high voltage) and NOWHV 
(now high voltage) to decide whether or not the spectrum 
meets the requirement of central detector on . 

If the last high voltage and the present high voltage are 
on, the spectrum is accepted. If neither is on, the spec- 
trum is rejected. If the last high voltage is on and the 
present high voltage is off, the spectrum is accepted be- 
cause it was accumulated when high voltage was on. If the 
last high voltage is off and the present high voltage is 
on, the spectrum is rejected because it was accumulated 
during high voltage off. 

This program section saves the begin time and the end time 
(midpoint of accumulation times) in seconds of century in 
a double precision (64-bit) floating point word. It also 
saves whether the begin . time starts at a sblar quadrant 
or includes both quadrants and whether the end time ends 
at a background quadrant or includes both quadrants. 

When a rejection requirement is fulfilled, a good time 
card is punched and new begin and end times are saved. 


F. Main frame data tape section: 

This program section begins by determining whether the 
data section provided by the data processing program is 
complete, that is, whether all major frames are present 
for each quadrant. If so, FEEDER is called to ^etch the 
main frame data for twelve major frames. If not, the 
program initializes the scan window to -I's and calls 
FEEDER to fetch the main frame data for each major frame 
present in the three minute span, placing the main frame 
data in the appropriate partition allowing for major 
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frame loss. This means that 12 partitions of the scan 
window are filled, either with main frame data or -I's 
to represent data loss. 

The same logic is followed to fill in the analog word 
array for each quadrant. . A fill of -I's is used to re- 
present missing information. A flag is set to indicate 
the presence of a time gap and a count of major frames 
present in the quadrant is given. The real time is con- 
verted from seconds of century to calendar time and intro- 
duces the record on tape. 

OUTPUT employs the same labelled common areas as described 
in Part V of this section. In addition, there is a labelled 
common area called /SMOLST/ used to transfer information 
to subroutine CALIB and containing the following arrays: 

SKAN(377,2) : this array is included because subroutine CALIB 

was written for use by another program and the 
labelled common area requires this array. 

SSCAN(377,2) : this array is also included to make this program 

compatible with the storage requirements of CALIB. 


HARRAY (768) 

: the second 

half of this 

array contains 

the main 


frame data 
tion . 

for the solar quadrant of the calibra- 

Here is 

an alphabetic 

list of variables and arrays of in- 

terest not in common 
term mentioned ; 

followed by 

the description 

for each 

ASOD 

lANLG 

IPRST 

IVD 

UHOUR(24) 

Al(3) 

lANLT 

IQUAD (2) 

IXPLT 

UPT 

BCUP 

IASTER(2) 

IREC 

IXPLTl 

USCAN 

BGLOG 

ICHGPN (12) 

IRSLT 

JPART 

USODAY 

BGSUM 

ICHIV 

ISCAN (4) 

LMONTH ( 12 ) 

UTME 

BSLAB 

ICHV 

iSCNH 

MONTH (12) 


CKTMB 

ICPHV 

ISHHV 

NSS (3) 


CKTMS 

ICPVD 

ISKN 

PANE 


CLOCK 

IDANI (2) 

ISODAY 

QCAL 


COUNT 

IDETT 

ISOFF 

SCAN 


DDTMB 

IDHLD 

ISTATl 

SCANTM { 3 ) 


DDTMS 

lELTP 

ISTAT2 

SCUP 


DIVB 

lEPD 

ISTAT3 

SCUPBl 


DIVS 

IGHLD 

ISTAT4 

SCUPSl 


DTEMP 

IHILO (2) 

I STATS 

SGAMB 


DTMB 

ILETT (13) 

ISTAT6 

SGAMS 


DTMS 

ILVD 

ISTAT7 

SGLOG 


ETEMP 

ILVPS 

ISTPHD 

SGSUM 


HCLOCK{6 4) 

IMAG 

ISYNER 

SSLAB 


HFULL(768) 

IMGY (2) 

ISYNl 

SSLABB 


HHOLD 

lONOF (3) 

ISYN2 

SSLABS 


HSTPNO 

IPRINT 

ITD 

STPNO 
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ASOD 

• 

• 

floating point full word variable containing the 
seconds of day for the major frame being processed 
(engineering plot) . 

Al(3) 

m 

• 

floating point full word array containing the in- 
tegrated peak channels for a radiation calibra- 
tion after a call to CALIB (calibration card) . 

BCUP 

• 

* 

floating point full word containing the average 
background cup for the data section being processed 
(line summary) . 

BGLOG 

• 

m 

floating point full word containing the average 
background gamma x ,1 (line summary). 

BGSUM 

• 

floating point full word containing the quotient 
of the background gamma sum divided by background 
live time (line summary) . 

BSLAB 


floating point full word containing the average 
background slab for the data section being pro- 
cessed (line summary) . 

CKTMB 

» 

double word variable containing the background clock 
time (= PHA clock time x 8 x 1/390.625) (line 
summary) . 

CKTMS 


double word variable containing the solar clock 
time (= PHA clock time x 8 x 1/390.625) (line 
summary) . 

CLOCK 

• 

* 

floating point full word containing the PHA clock 
time (line summary) . 

COUNT 

m 

floating point full word variable containing the 
step number in raw form (engineering plot and 
line summary) . 

DDTMB 

# 

• 

double word variable containing the background 
dead time (*= DTMB x .001515) (line summary) . 

DDTMS 

• 

double word variable containing the solar dead 
time (= DTMS x .001515) (line summary). 

DIVB 

• 

floating point full word containing the background 
live time (line summary) . 

DIVS 

* 

w 

floating point full word containing the solar live 
time (line summary) . 

DTEMP 

■ 

• 

floating point full word containing the average 
detector temperature divided by 10 (line summary) . 
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DTMB 

DTMS 

ETEMP 

HCLOCK(64) 

HFULL(768) 

HHOLD 

HSTPNO 

lANLG 

lANLT 

IASTER(2) 

ICHGP'N(12) 

ICHIV 

/ 

ICHV 


: double word variable containing the sum of the 

value of the 2 lowest order bits of the status 
word for a background quadrant and 4 x the value 
of the 60th main frame experiment word in the 
last major frame of that quadrant (line summary) . 

! double word variable containing the sxun of the 
value of the 2 lowest order bits of the status 
word for a solar quadrant and 4 x the value of 
the 60th main frame experiment word in the last 
major frame of that quadrant (line summary) . 

: floating point full word containing the average 

electronic temperature divided by 10 (line summary) . 

: integer half-word array equivalenced to partition 

1 of the scan window into which the main frame 
data of the last major frame of each quadrant is 
placed to obtain the PHA clock time in HCLOCK(64) 
(line summary) . 

: integer half-word array equivalenced to the first 

twelve partitions of the scan window - may con- 
tain all the main frame data for one full scan 
(main frame data tape) . 

; integer half-word set to -1 to determine whether 
the background quadrant is missing or whether a 
time gap exists in the quadrant (main frame data 
tape) . 

; half-word integer variable containing the fixed 
point value for the step number (line summary) . 

; integer full word variable used as an index for 
analog sub-subcomed words ASC 1:1-6, ASC 2:1-6 
(engineering plot and line summary) . 

: integer full word variable used to save the nor- 

mal - alternate quadrant status (engineering plot) . 

; full word array containing the following alpha- 
meric information : blank and * . 

: full word integer array containing the pane num- 

bers of sync major frames where status change 
occurs (not including background - solar change) . 

; integer full word variable containing the average 
central detector HVPS analog (line summary) . 

: integer full word variable containing the sum of 

the central HVPS analog for the data section 
being processed (line summary) . 
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ICPHV 

• 

integer full word variable containing the sum of 
the charged particle HVPS analogs for the data 
section being processed (line summary) . 

ICPVD 

m 

integer full word variable holding the nvunber of 
major frames used in the charged-particle HVPS 
analog summation (line siimmary) . 

IDANI (2) 

♦ 

* 

full word array containing alphameric DAY or NITE. 

IDETT 

• 

m 

integer full word variable containing the sum of 
the detector temperature for the data section 
being processed (line summary) . 

IDHLD 

♦ 

• 

integer full word variable used to save the day - 
night status in the engineering plot section. 

lELTP 

• 

integer full word variable containing the sum of 
electronic temperature for the data section being 
processed (line s\immary) . 

lEPD 

• 

• 

integer full word variable holding the n\unber of 
major frames used in the electronic temperature 
summation (line summary) . 

IGHLD 

• 

integer full word variable used to save the gain 
status in the engineering plot section. 

IHIL0(2) 

• 

♦ 

full word array containing alphameric HI and LO. 

ILETTU3) 


full word array containing alphameric F/I,S/A,N, 
E ^ b 1 anJc ^R^D^MfG/P fC. 

ILVD 

* 

integer full word variable holding the number. of 
entries in the low HVPS analog summation. 

ILVPS 

« 

integer full word variable containing the average 
of the LVPS analogs for 'the data section being 
processed (line summary) . 

IMAG 

• 

• 

integer full word variable used to save the mag- 
netometer - gyro reference in the engineering 
plot section. 

IMGY { 2 ) 

• 

• 

full word array containing alphameric MAG and GYRO. 

lONOF { 3 ) 

• 

full word array containing the following alphameric 
information; ON, OFF, and blank. 

IPRINT 

41 

m 

integer full word variable set to 1 to indicate 
that a status line must be printed due to a para- 
meter change (line summary) . 
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IPRST 

• 

integer full word variable used as a print-status- 
line indicator (line summary) . 

IQUAD(2) 

m 

m 

full word array containing alphameric N and A. 

IREC 

m 

integer full word variable used as a record counter 
for x-ray records written (x-ray tape section). 

IRSLT 

« 

integer full word variable containing the return 
code as a result of a call to FPUT (x-ray tape 
and main frame data tape sections) . 

ISCAN(4) 

« 

♦ 

double word array containing the following alpha- 
meric information; FULL, INTER, SHORT, INVLD. 

ISCNH 

• 

• 

integer full word variable used to save the scan 
mode in the engineering plot section. 

ISHHV 

* 

m 

integer full word variable containing the average 
shield HVPS analog for the data section being 
processed (line summary) . 

ISKN 

« 

• 

full word variable containing the alphameric 
representation of the scan mode (F = full , 1= 
intermediate, S = short) . 

ISODAY 

« 

♦ 

integer full word variable containing seconds of 
day for the major frame being processed (line 
summary) . 

ISOFF , 

• 

» 

integer full word variable used to save shield 
on - off (engineering plot) . 

ISTATl 

♦ 

full word variable containing the alphameric re- 
presentation for normal - alternate quadrant 
(N = normal, A = alternate) (line summary). 

I ST AT 2 

• 

full word variable containing the alphameric re- 
presentation for electronic calibration on - 
off (E = on, blank = off) (line summary) . 

ISTAT3 

• 

# 

full word variable containing the alphameric re- 
presentation for radiation calibration on - off 
(R = on, blank = off) (line summary) . 

ISTAT4 

* 

m 

full word variable containing the alphameric re- 
presentation for day - night indicator (D = day, 
N = night) (line s\ammary) . 

I STATS 

m 

full word variable containing the alphameric re- 
presentation for magnetometer - gyro reference 
(M = magnetometer, G = gyro) (line summary) . 


f. 
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ISTAT6 

* 

full word variable containing the alphameric re- 
presentation for charged particle on - off (P = on 
blank - off) (line summary) . 

I ST AT 7 

• 

• 

full word variable containing the alphameric re- 
presentation for central detector on - off (C = on, 
blank = off) (line summary) . 

ISTPHD 

• 

• 

integer full word variable used to save the step 
number in the engineering plot section. 

ISYNER 


integer full word variable equal to ISYN2 (line 
summary) . 

ISYNl 

# 

• 

integer full word variable containing the count 
of non-fill minor frames with sync errors in the 
data section being processed (line summary) . 

ISYN2 

• 

• 

integer full word variable containing the total 
sum of bits in error in non-fill minor frame sync 
for the data section being processed (line summary) 

ITD 

• 

• 

integer full word variable holding the number of 
major frames used in the detector temperature 
siommation (line summary) . 

IVD 

• 

* 

integer full word variable holding the number of 
major frames used in the central HVPS analog 
summation (line summary) . 

IXPLT 

P 

* 

integer full word variable containing the plot 
index of the major frame being processed 
(engineering plot) . 

IXPLTl 

• 

integer full word variable used as plot index 
through a time gap (engineering plot) . 

JPART 

# 

P 

integer full word variable containing the number 
of the first partition where main frame data is 
to be placed in the call to FEEDER (main frame 
data section) . 

LM0NTH{12) 

P 

m 

integer full word array containing the day of 
of the end of each month of a leap year. 

month (12) 

• 

« 

integer full word array containing the day of 
^t the end of each month of an ordinary 

year. 

NSS(3) 

m 

P 

integer full word array containing the sum of 
counts surrounding the three calibration peaks 
after a call to CALIB. 
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PANE 

• 

integer full word variable containing the pane 
number of the major frame being processed (from 
IXPANE to LXPANE) . 

QCAL 

• 

• 

= .TRUE, if a call to CALIB must be made and a 
calibration card punched (calibration card section) . 

SCAN 

m 

• 

floating point variable containing the number of 
seconds to subtract from the background read-out 
time in order to obtain the time at beginning of 
data accumulation. (184.32 for full scan, 61.44 
for intermediate scan, 30.72 for short scan). 

SCANTMO) 

• 

• 

floating point array containing the number of 
seconds to subtract from background read-out 
time to obtain the time at midpoint of data 
accumulation (92.16 for full scan, 30.72 for 
intermediate scan, 15.36 for short scan). 

SCUP 

• 

floating point full word variable containing the 
average solar cup for the data section being pro- 
cessed (line summary) ., 

SCUPBl 

w 

floating point full word variable containing the 
sum of the sixth ASC word from each major frame 
of the data section being processed (charged 
particle cup, background) (line summary) . 

SCUPSl 

♦ 

• 

floating point full word variable containing the 
sum of the tenth ASC word from each major frame 
of the data section being processed (charged- 
particle cup, solar) (line summary). 

SGAMB 

# 

• 

floating point full word variable used to contain 
the sum of the third ASC word from each major 
frame in the data section being processed (gamma 
.3 - 9.1 MeV, background) (line summary). 

SGAMS 

• 

« 

floating point full word variable used to contain 
the sum of the seventh ASC word from each major 
frame in the data section being processed (gamma 
.3 - 9.1 MeV, solar) (line summary). 

SGLOG 

• 

• 

floating point full word variable containing the 
average solar gamma x .1 (line summary). 

SGSUM 


floating point full word variable containing the 
quotient of the solar gamma sum divided by the 
solar live time (line summary) . 

SSLAB 

5 

floating point full word variable containing the 
average solar slab for the data section being 
processed (line summary) . 



2-48 


SSLABB 

* 

* 

floating point full word variable containing the 
sum of the fifth ASC word from each major frame 
of the data section being processed (charged 
particle slab, background) (line summary). 

SSLABS 

• 

floating point full word variable containing the 
sura of the ninth ASC word from each major frame 
of the data section being processed (charged- 
particle slab, solar) (line summary). 

STPNO 

• 

• 

floating point full word variable used to cal- 
culate the step number (engineering plot and 
line summary) . 

UHOUR (24) 

• 

double word array containing seconds of hour 
for hours 1 to 24. 

UPT 

• 

m 

double word variable used to hold time in seconds 
of century. 

USCAN 


double word variable containing the number of 
seconds to subtract from read-out time to obtain 
midpoint of accumulation time. 

USODAY 

m 

m 

double word variable used to contain the seconds 
of day for the major frame being processed. 

UTME 

• 

* 

double word variable containing the time at 
midpoint of accumulation in seconds of century 
for a calibration (calibration card section) . 
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XIV. Subroutine PLOUT 


Program Language 
Date Written 
Programmer 
Installation 

Computer 
Dummy Arguments 
Subprograms Called 
Description 


Fortran IV, G-Level 
January 1972 
A. Buck 

University of New Hampshire 
Space Science Center 

IBM-360-H50 

None 

FTWRIT, MOVER 

Subroutine PLOUT writes the tables 
created by the plot section of subrou- 
tine OUTPUT onto disk. The tables con- 
tain the information necessary for one 
plot frame. The main program of Pass-I 
initializes these tables. 



XV. Subroutine PUZZLE (version C) 


Program Language 
Date Written 
Programmer 
Installation 

Computer 
Dummy Arguments 
Subprograms Called 
Description 


Fortran IV, G-Level 
January 1972 
A. Buck 

University of New Hampshire 
Space Science Center 

IBM-360-H50 

None 

MOVER 

This program tries to solve 'puzzling* 
situations by realigning major frames 
surrounding sync word loss or time gap 
occurrence. Certain messages are printed 
out depending on the problem-solving 
method used. 
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XVI. Function QUASH (HAR,HMASK ,LEN) 


Program Language 
Date Written 
Programmer 
Installation 

Computer 
Dummy Arguments 


Subprograms Called 
Description 


; IBM 0/S 360 Assembler Language 
; January 1972 
: A. Buck 

: University of New Hampshire 

Space Science Center 

: IBM-360-H50 

; 1) HAR; flag word 

2) HMASK: mask 

3) LEN: integer full word specifying 
the length in bytes of the flag word 
and the mask. 

5 None 

; QUASH turns off the flag bits you are 
willing to ignore and then gives a true- 
false reading. 



XVII. Subroutine SUMARY (KFSUMY ,HFSUMY ,KNFDSN, KAFDSN ,KJFDSN, I) 


Program Language 
Date Written 
Programmer 
Installation 

Computer 
Dummy Arguments 


Subprograms Called 
Description 


Fortran IV, G- Level 

January 1972, Revised March 14, 1972 
A . Buck 

University of New Hampshire 
Space Science Center 

IBM-360-H50 

: 1) KFSUMY ; an input vector containing 

the accumulated statistics (full word 
integers) (see. file summary descrip- 
tion in Part V of this section) . 

2) HFSUMY ; the same input vector, 
(half-word integers) 

3) KNFDSN; an input integer variable 
defining the first data set number on 
which the display is to be written. 

4) KAFDSN ; an input integer variable 
defining the last data set number on 
which the display is to be written. 

5) KSFDSN: an input integer variable 
containing the greater of [1,(KAFDSN- 
KNFDSN) ] . 

6) I: an input integer variable defining 
the type of statistical display required. 

: None 

: This program assists the main program 

by creating and printing a display of 
statistics accumulated in an array 
passed by the main program. Subroutine 
SUMARY is responsible for accumulating 
time intervals spanned by individual 
tapes (when 1=2) for use in the final 
run summary report (I = 3) 
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XVIII. Subroutine SUMCAL (KFSUMY ,KTSUMY) 


Program Language 
Date Written 
Programmer 
Installation 

Computer 
Dummy Arguments 


Subprograms Called 
Description 


IBM 0/S 360 Assembler Language 
January 1972 
A. Buck 

University of New Hampshire 
Space Science Center 

IBM-360-H50 

1) KFSUMY: an input vector containing 
the accumulated statistics for a file. 

2) KTSUMY ; an output vector containing 
the accumulated statistics for the tape, 
(see summary descriptions in Part V of 
this section) . 

None 

This program compares the begin time 
of the file with the begin time in the 
tape accumulator. If the file time is 
earlier, the earlier time is moved to 
the tape summary begin time . The end 
times are also compared and the later 
time is moved to the tape summary 
end time. 
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XIX. Plot Production Program (OSOP104A) 


Program Language 

* 

Fortran IV, G-Level 

Date Written 

A 

February 1972 

Programmer 

« 

m 

A. Buck 

Installation 

w 

m 

University of New Hampshire 
Space Science Center 

Computer 

• 

IBM-360-H50 

Subprograms Called 

• 

FGET,INITPL,OUTLNE, ENPLTA, PLOT (see Section 7) 


The purpose of this program is the distribution of plots on the 
plotter tapes and plot construction. The program reads the 
disk file containing the plot frame count. From this count, it 
computes the number of tapes that will be required to plot a 
maximum of three plot frames per tape. A maximum of three plot 
frames per tape was selected because of the poor condition of 
the Cal comp plot hardware at the University of New Hampshire 
Computation Center. After two hours of plotting, the hardware 
has a tendency to malfunction. It usually takes about two hours 
to plot three frames. There is no restart option to begin plotting 
again at the frame in which the malfunction occurred. 

The plot production program reads the engineering plot tables 
stored on disk and calls INITPL,OUTLNE , and ENPLTA for actual 
plot construction. For one week of data, seven plotter tapes 
are generated containing three plot frames per tape. 
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Program Language 
Date Written 
Programmer 
Installation 

Computer 

Dummy Arguments 

Subprograms Called 

Description 


XX. Subroutine ENPLTA 


; Fortran IV, G- Level 

: October 1971 

: S. Croteau 

; University of New Hampshire 
Space Science Center 

: IBM-360-H50 

5 None 

: PLOT (see Section 7) , CHAR (see Section 7) , 

OUTLNE 

; This program plots one plot frame con- 
sisting of 23 arrays dimensioned at 1300 
half words each. Each half word represents 
one major frame of data and is represented 
by one hundredth of an inch on the "X" 
axis. Each array represents an indivi- 
dual plot within the total engineering 
plot frame. 

ENPLTA reads and plots each table one 
at a time. The ORBIT number printed 
is the ascending- node-crossing number. 

The day of year for each frame is also 
written on the disk record. 
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XXI. Subroutine FGET (IDSN, IRSLT , lOVEC) 


Program Language 
Date Written 
Programmer 
Installation 

Computer 
Dximmy Arguments 


IBM 0/S 360 Assembler Language 
February 4, 1971 
A. Buck 

University of New Hampshire 
Space Science Center 

IBM-360-H50 

1) IDSN; a full word input integer con- 
taining the data set number to which 
the call is directed. (IDSN must be 

1, 2 , or 3) . 

2) IRSLT: a full word output integer 
in which subroutine FGET may place an 
activity-result code as follows... 

a) IRSLT = -1 if the requested 
activity was invalid. This code 
is returned if either of the fol- 
lowing occur : 

i. IDSN contains a number 
less than 1 or greater than 

3. 

ii. Data set has been pre- 
viously closed. 

b) IRSLT = 0 if data is read and 
no I/O error is detected. 

c) IRSLT =1 if an I/O error occurred 
on the block containing the data 
placed in lOVEC. The calling pro- 
gram has the responsibility for 
accepting or rejecting the data. 

In addition, the calling program 
is responsible for proper reaction 
to the remaining records in the 
block for which IRSLT will be 0. 
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Subprograms 

Description 


d) IRSLT = 2 if end-of-file was 
detected. The contents of lOVEC 
are not changed. The data set 
is closed and cahnot be used again 
by subroutine FGET with the same 
value of IDSN. 

3) lOVEC; an output vector in which 
FGET can place the record. The actual 
variable used for lOVEC may be integer, 
real, logical, or complex. The first 
leftmost byte of the data record is 
placed in the high-order byte of lOVEC 
when reading occurs. The number of 
bytes placed in lOVEC is specified by 
the LRECL subparameter of the DD State- 
ment . 

Called ; None 

: This subroutine is a QSAM input subroutine 

to read logical records into an area de- 
fined by the calling program. This 
routine is specifically designed to 
supply a Fortran calling program with 
logical records from a data set to which 
the DCB subparameter 'RECFM = FB* applies. 
For data sets to which ’RECFM = F' or 
'RECFM = U' applies, subroutine FTREAD 
may be more easily used. "RECFM = V is 
specifically prohibited. 

Subroutine FGET can manage as many as 
3 data sets during the same job step. 

The data sets may be open (active) 
simultaneously provided no two data sets 
are on the same magnetic tape. 

DD Statements required... 

If FGET is to be called with IDSN = 1 
(or 2 or 3) , then the user must describe 
ttie data set by a DD Statement having the 
DD name FGETOl (or FGET02 or FGET03) . 

The DD Statement include the DCB 

subparameters 'RECFM', 'LRECL', and 
'BLKSIZE' but must omit 'DSORG' or'MACRF' 



XXII. Subroutine INITPL 


Program Language 
Date Written 
Programmer 
Installation 

Computer 
Dummy Arguments 
Subprograms Called 
Description 


Fortran IV, G- Level 
September 1971 
S. Croteau 

University of New Hampshire 
Space Science Center 

IBM-360-H50 

None 

PLOT 

This subroutine makes the initial call 
to PLOT (see Section 7) in preparation 
for the engineering plot. The call:! to 
this subroutine is made by the main 
program in the second step of PASS-I. 
The subroutine requests that PLOT cal- 
culate the scale constants but neither 
a plotting area outline nor grid is 
drawn. The physical size of the en- 
gineering plot is 13.0 inches in the 
"X" direction and 10.0 inches in the 
iiyii direction. 
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XXIII . 

Program Language : 
Date Written : 
Programmer : 
Installation : 

Computer : 
Dummy Arguments ; 
Subprograms Called : 
Description : 


Subroutine OUTLNE 


Fortran IV, G-Level 
September 1971 
S. Croteau 

University of New Hampshire 
Space Science Center 

IBM-360-H50 

None 

PLOT, CHAR 

This program plots the frame and labeling 
information for the engineering plot using 
the PLOT and CHAR software provided by 
the Computation Center (see Section 7) . 

The call to this subroutine is made by 
the main program in the second step of 
PASS-I each time a new frame is desired. 
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XXIV. Description of input 


A. Control Card Format 


ui 


0 0 0 0 
12 3 4 

till 


22 
3 3 
4i 

55 

56 

77 

68 

9 9| 
1 2 


9 0 


til 


7 7 


4 5 $ 


0 0|0 0 9 0 
12 

1 1 


2 2 2 2 2 

3 3 3 3 3 

4 4 4 4 4 

5 5 5 5 5 


8 6 8 8 
9 9 9 919 9 


G 6l8 6|6 6|G 6 
77 


7 7p7 


0 0 ; 
till 


2 22 
3 3 3 
444 
55 5 


88 
9 9 


loo 

|l3 IKI 

11 


T 


11 11 1 


0 0 0 0 




2 2 2 2 


3 3 


7 7 


3 3 


4 4 4 4 

5 5 5 5 

6 6 6 6 


7 7 


8 6 8 3 

9 9 9 9 



1000000000009000900090000009000000000 OGOOOGOOOOOOOO 

m » 32 2S 38 2? 31 » 40 41 42 43 44 45 4S 47 4« 48 « 51 s:; S3 M 55 56 57 SB 99 60 62 <3 M 65 « n a TO 71 72 73 14 7? 7$ T71t 71 n 

1 1|1 1|1 1 1 1 1 1 1 1 1 1 1 M 1 1 1 1 1 1 1 1 1 1 I 11 11 1 11 1 11 11 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 
222222222222222222222222222222222222222222222222222 
1333333333333333333333333333333333333333333933333333 
444444444444444444444444444444444444444444444444444 
155555555555555555555555 5555555 55 555 55 555 555 555 555 55 
6 6 6 6 6 6 6 6 6 8 6 8 6 6 6 6 6 5 6 6 6 6 6 6 6 6 B 8 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 
7 J|7 ll? 717 7 7 7 n 7 7 7 7 7 7 ? 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 ? 7 7 7 n 7 7 7 7 7 n 7 7 7 7 n 7 7 


I 9 9 9 9 9 9 3 9 9 9 3 9 S 9 9 9 9 9 9 9 S 9 9 9 9 9 S 9 9 S 9 9 9 9 S 9 3 S 9 9 9 9 9 3 9 9 9 9 9 9 9 9 

bIzS ubt 12 U 34 3S 38 37 30 39 40 41 42 i3 44 45 46 47 48 SO SI 52 » 54 » S8 57 SB SO U $1 6M7 64 68 88 ei 86 89 70 71 72 77 74 78 78 77 70 IS 00 


NTAPES Number of tapes to be processed. 


MFDOP 

lATTOP 

IDSOP 

lASOP 

lORBOP 

lOPT 


0 = Main frame data not processed. 

1 = All main frame data processed. 

2 = PHA channel counts ignored. 

0 = Omission of attitude data. 

1 = Attitude data values processed. 

0 = Omission of digital subcom data. 

1 = Digital subcom data processed. 

0 = Omission of wheel analog subcom words 3-10. 

1 = All 10 wheel analog words to be processed. 

0 = No orbit data needed. 

1 = Regular orbit data items are desired, 

2 = All ORBIT data items required. 

0 = Combination. 

1 = Plot only. 

2 = Line summary only. 

3 = Calibration cards only. 

4 = X-ray tape only. 

5 = Good time cards only. 

6 = Main frame data tape only. 



IPLOT 


ILIST 

ICALIB 

IXRAY 

IGDT 

IMFD 

HMAXTA 

HMAXFI 


1 = Plot. 

0 = No plot. 

1 = Line siammary. 

0 = No line sununary. 

1 = Main frame display of calibration. 

0 = No display. 

1 = Create X-ray tape . 

0 = No tape. 

1 = Punch good time cards . 

0 = No good time cards . 

1 = Create MF data tape . 

0 = No MF data tape. 

Maximum number of tapes to be processed 
Maximum number of files to be processed 
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B. Experimenter Data Tape 

This tape format was sent to EXP3 by Mr. Henry Linder, 
GSFC. 

1. Data Format for OSO-H Experimenter Tape University 
of New Hampshire Experimenter Number 3 


Characters 


Contents 


1 

- 

12 

13 

- 

18 

19 

- 

24 

25 

- 

30 

31 

- 

36 

37 

- 

42 

43 

- 

48 

49 

- 

54 

55 

- 

60 

61 

- 

66 

67 

- 

72 

73 


78 


79 - 84 
85 - 90 
91 - 168 


169- 170+12N 
171-172+12N 
173-174+12N 
175-176+12N 
177-178+12N 

170- 180+12N 


Time field. 

Spin rate (rad/sec). 

Pitch angle (rad) . 

Roll angle (rad) . 

Aspect angle (rad) . 

Right ascension of spin axis (rad) . 
Declination of spin axis (rad) . 

Right ascension of roll axis (rad) . 
Declination of roll axis (rad) . 

Right ascension of aspect axis (rad) . 
Declination of aspect axis (rad) . 

Azimuth time of encoder pulse with 
respect to beginning of minor frame 1. 

Attitude flag field. See Attachment IV. 

Spare . 

Same type of data as in characters 
13 - 90 but for time T 2 = Tj + 15.36 
sec (i.e., for the second major frame) 
one major frame contains 48 minor frames. 

Minor frame word 11. 

Minor frame word 12. 

Wheel subcommutator. 

Sail subcommutator. 

Digital subcommutator. 

Flag field for each minor frame. 


2. Explanations about the Format 


Where 0 < N < 95 corresponds to main frames 1-48 
containing a complete subcora cycle followed by main 
frames 1-48 containing the next complete subcom 
cycle; thus every record length is 1320 6-bit char- 
acters or 220 36-bit computer words. 

The tapes will be written with odd parity and a den- 
sity of 556 BPI. Each file will be started with 
a label record, as described in Attachment I, followed 
by records filled with ORBIT information as described 

i 
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in Attachment V, and then will be followed by the PCM 
data records. An end-of-file (EOF) mark closes the 
file. Several files are written on the same tape 
until two EOF marks indicate the end of data on the 
tape. 

The time field contains subcom slip flag, day count 
of year, and milliseconds of day. The time field 
is described. in Attachment II. 

The attitude data is referenced to the time T^ given 
in the time field except for the second set of at- 
titude data which is referenced to time T 2 = Tj. + 15.36 
sec. The attitude flag field is described in Attach- 
ment IV. All attitude words are written IBM-7094 
floating point format. 

The flag field contains the frame number (1-48) in 
the subcom cycle, number of bit errors in the main 
frame sync word, fill data flag, and day /night indi- 
cator. The flag field is described in Attachment III. 

Any changes to the above -described data tape format 
should be directed to Henry G. Linder, GSFC, Code 565, 
Greenbelt, Maryland, 20771. 
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ATTACHMENT I 


Label Record Description 


Characters 

Form 

Contents 

1 

- 

5 

BCD 

Satellite identification number. 

6 

- 

7 

BCD 

Year. 

8 

- 

10 

BCD 

Station number. 

11 


14 

BCD 

Station tape number. 

15 


16 

BCD 

Analog file number. 

17 

- 

18 

BCD 

Buffer file number. 

19 

- 

21 

BCD 

Day count of year. 

26 

- 

30 

BCD 

Start time (sec) . 

32 

- 

36 

BCD 

End time (sec) . 

37 

- 

38 

BCD 

Experimenter number. 

39 


40 

BCD 

Decomm number. 

41 

- 

42 

BCD 

Reel number. 

43 


44 

BCD 

Master tape file. 

45 

- 

48 

BCD 

Master tape number. 

49 



BCD 

Type of attitude computation: 
0 = based on star sensor in- 





puts at night and SORE in- 
puts in day time, 1 = based 
on magnetic field measure- 
ment inputs and SORE inputs 
in day time (accuracy 2-3) . 

50 

- 

60 

BCD 

Fill data (blank) . 

61 

- 

66 

Floating Pt. 

-Day count of year. 

67 

- 

72 

Floating Pt. 

Seconds of day. 

73 

- 

78 

Floating Pt. 

Semi-Major axis, a (km). 

79 

- 

84 

Floating Pt. 

Eccentricity, e (ratio) . 

85 

- 

90 

Floating Pt. 

Inclination, I (deg) . 

91 


96 

Floating Pt. 

Right ascension of ascending 
node, f^(deg). 

97 

- 

102 

Floating Pt. 

Rate of change of R.A. of 
ascending node (deg/day) . 

103 

- 

108 

Floating Pt. 

Argument of perigee, w(deg). 

109 


114 

Floating Pt. 

Rate of change of argument 
of perigee (deg/day) . ' 

115 

- 

120 

Floating Pt. 

Period, P (min) . 

121 


126 

Floating Pt. 

Rate of change of period, 
P (deg/day). 

127 

- 

132 

Floating Pt. 

Date. 

133 

— 

138 

Floating Pt. 

Day count of year coordin- 


ate system. 
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ATTACHMENT I 


Characters 

Form 



Contents 


139 

- 

144 

Floating 

Pt. 

Apparent sideral time in 






radians 

1 * 


145 

- 

150 

Floating 

Pt. 

No. 

of 

frames 

expected. 

151 


156 

Floating 

Pt. 

No. 

of 

frames 

recovered. 

157 

- 

162 

Floating 

Pt. 

No. 

of 

frames 

recovered. 

163 

- 

168 

Floating 

Pt. 

No. 

of 

frames 

with 0 bit 






errors . 



169 

- 

174 

Floating 

Pt. 

No. 

of 

frames 

with 1 bit 






errors • 



175 

- 

180 

Floating 

Pt. 

No. 

of 

frames 

with 2 bit 






errors • 



181 

- 

186 

Floating 

Pt. 

No. 

of 

frames 

with 3+ bit 






errors . 



187 

— 

192 

Floating 

Pt. 

No. 

of 

frames 

with 0 bit errors. 

193 

- 

198 

Floating 

Pt. 

No. 

of 

frames 

with 1 bit errors. 

199 


204 

Floating 

Pt. 

No. 

of 

frames 

with 2 bit errors. 

205 

- 

210 

Floating 

Pt. 

No . 

of 

frames 

with 3+ bit errors 

211 


216 

Floating 

Pt. 

No. 

of 

subcom 

slips in sail. 

217 

- 

222 

Floating 

Pt. 

No. 

of 

subcom 

slips in wheel. 

223 

- 

228 

Floating 

Pt. 

No. 

of 

subcom 

slips in digital. 

229 

- 

234 

Floating 

Pt. 

No. 

of 

losses 

of frame sync. 

235 

- 

240 

Floating 

Pt. 

No. 

of 

frames 

with fill. 


241 Remainder of record blank. 
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ATTACHMENT II 


Description of Time Field 


Character 


Representation 


1 

2-4 

5-6 

7 

8-12 


Subcom Slip Flag*. 

Not Used. 

Day Count of fear (1 - 366) . 

Not Used. 

Milliseconds of Day. 

(Time at word 1 of frame 1 of 
first subcom cycle in record) , 


* The configuration of the subcom slip flag is as 
follows (bit 1 is least significant bit in character) : 
1 = slip occurred, 0 = no slip. 


Bit 

1 

2 

3 

4 

5 


Representation 

Slip of sail subcom in subcom 
cycle 1. 

Slip of wheel subcom in subcom 
cycle 1 . 

Slip of digital subcom in subcom 
cycle 1. 

Slip of sail subcom in subcom 
cycle 2, 

Slip of wheel subcom in subcom 
cycle 2. 


6 


Slip of digital subcom in subcom 
cycle 2. 
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ATTACHMENT III 

Description of Flag Field 

(Bit 1 is least significant bit in character) 

Flag Field Character 1 (i.e. left-most character of 
field) contains: 

Representation 

No. of bit errors in main sync 
word. 

1 = fill data in this frame, 

0 = none . 

1 = night, 0 = day. 

Flag Field Character 2 (i.e., right-most character of 
field) contains: 

Bit Representation 

No. of frame in subcom cycle 
(1 - 48). 


Bit 

1-4 

5 

6 


1-6 
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ATTACHMENT IV 


Description of Attitude Flag Field (Field is in 7094 
format where bit 1 is LSB) 


Bit Significance 

No data; data point was 

interpolated. 

No 0 ) data; data point was in- 
terpolated. 

i)> data out of bounds; data point 
was interpolated. 

n data out of bounds; data point 
was interpolated, 

0 ) data out of bounds; data point 
was interpolated; Bs is also in- 
terpolated by gyro pulse. 

Pitch gas was activated. 

No encoder pulse detected. 

More than one encoder pulse detected. 
Not used . 

Not used . 

Not used. 

No pitch angle available. 

No spin calculation possible. 

No aspect calculation possible. 


6 

7 

8 
9 

10 

11 

12 

13 

14 
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ATTACHMENT V 


Description of Records With ORBIT Information 


The first records in each file after the label record 
will contain the ORBIT information for the time inter 
val covered by the data file. The first word in each 
record will contain all I's (binary) indicating that 
ORBIT information will follow. The record will then 
be filled with 20-word data blocks containing the 
following information: 


Word No. 


Representation 


1 


2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 


Type of data item indicator: 

= 1 regular satellite data item, 

= 2 regular ^Satellite data item. 

= 3 north point data item. 

= 4 descending node crossing. 

= 5 south point data item. 

= 6 sunlight entrance. 

= 7 sunlight exit. 

Day count of year, time of data. 

Seconds of day, time of data. 

Satellite position vector x(km). 

Satellite position vector y(km) . 

Satellite position vector z (km) . 

Satellite velocity vector x(km/sec). 

Satellite velocity vector y (km/sec) . 

Satellite velocity vector z (km/sec). 

Geodetic longitude (deg) . 

Geodetic latitude (deg) . 

Height above spheroid (km) . 

Solar vector S (AU) . 

X 

Solar vector S^ (AU) . 

Soalr vector S (AU) . 

z 

Mclllwain L. Parameter L (earth radii) . 
Magnetic field strength B (gauss) . 

Right ascension of magnetic field vector (deg) 
Declination of magnetic field vector (deg) . 
Ascending-node-crossing number. 


All data with the exception of the geodetic information 
is given in Geocentric Equatorial Inertial (GEI) coor- 
dinates. Geodetic longitude is positive east of 
Greenwich, negative west of Greenwich. Geodetic northern 
latitudes are positive, and southern latitudes are 
negative. The geodetic information is based on the 
use of Fisher's Ellipsoid with an equatorial radius of 
6378.166 km and a flattening of f = 1/298.25. 



ATTACHMENT V 


The 20-word data blocks will fill the first and succeeding 
records until the given ORBIT information covers the 
entire time interval of the data file. The 20-word 
data block will never be divided into parts _ to ^ fit 
into the end of one data record and the beginning of 
another. The ending of ORBIT data is noted by filling^ 
the remainder of the data record with 88888888. (Floating 
point.) All ORBIT information is written in IBM-7094 
floating point format. 
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XXV. Description of Output 


A. Engineering Plot (Optional Output) 


One hundredth of an inch represents 15.36 seconds or one 
major frame of data. 

1. DAf-NIGHT : '-'=day ' '=night 


2. ALTERNATE-NORMAL 
quadrant 

3. MAGNETOMETER-GifRO 
reference 


- ’ ^alternate ' ' =normal 


- ' =magnetometer ' ' =gyro 


4. CENTRAL DETECTOR 
ON-OFF 


' - ' =OFF 


=0N 


5. SHIELD ON-OFF 


• - * =*OFF 


'=0N 


6. SCAN MODE 


•F'^full 

’ I ' “intermediate 
'S '“Short 


(The scan mode is printed at the start of each 
file and also after a change in scan mode.) 


7. GAIN HIGH-LOW : 'H'=high 'L'=1ow 

(Gain is printed at the start of each file and 
when gain changes . ) 


8. STEP NUMBER : The step number is calculated 

using the following constants 
and equations ; 


For gain *= 1 

aV + b = step 

a (^^^) + b = step 

1.5011 a + b = 0 

3.565 a + b “ 63 


2.064 a = 63 

a = 30.52 + .5 and 


b = -45.81 


truncate 
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For gain = 1/3 

aV + b = step 

a(H^) + b = step 

0.011 a + b = 0 

2.074 a + b = 63 

a=30.53 +.5 and 


b = -.336 


truncate 


9. 


ELECTRONIC TEMPER-: 
ATURE 


Point should occur every 
major frames. 

POINT =^ 735 ^ * *25 in. 


6 


10* DETECTOR TEMPERA- : Same as No. 9. 
TORE 

11. CENTRAL DETECTOR ; Same as No. 9. 

12. SHIELD : Same as No. 9. 

13. LOW VOLTAGE : Same as No. 9. 


14. GAMMA COUNTS 

.3 to 9 MeV SOLAR 


Point should occur every major 


Y* 

point/ 


15. GAMMA COUNTS 

.3 to 9 MeV BACK- 
GROUND : Same as No. 14. 


16. GAMMA COUNTS > 
9 MeV SOLAR 


Point 
frame . 

POINT 


should occur every major 

counts 0-60 * 1 n 
^ g_ 1.0 in. 


17. GAMMA COUNTS > • 

9 MeV BACKGROUND : Same as No. 16. 


18. CUP SOLAR 


: Point 
frame 

POINT 


should occur every major 
counts 60-160 * , « • 

= T5o 


19. CUP BACKGROUND 


Same as No. 18 
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20. SLAB SOLAR 


Point should occur every major 
frame . 


P0INT= 


counts 60-160 
100 


* 


1.0 in. 


21. SLAB BACKGROUND : Same as No. 20. 

22. DAlf OF /EAR : Printed at start of each frame 

and whenever day changes. 

Time on the engineering plots 
is real time. 


23. HOURS OF DAf 

24. ORBIT NUMBER 


Hours 0-23 are printed — day 
count changes at 0. 

This is the ascending node 
crossing number. 
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B. Printed Output 

1. Line Summary (Optional Output) 

Status Line The status line is printed at 

the start of each file, after a 
long time gap, and whenever status, 
central detector on-off, or step 
number change. An asterisk is 
printed to the left of the field 
in which a change has occurred. 

The status line consists of : 

a . DAY — 

b. HOUR 

c. MINUTES 

d. SECONDS 

e. SCAN MODE : 'PULL', 'INTER', 'SHORT', or 

■INVLD' (invalid). 

f. QUADRANT ; 'A' - alternate 'N' - normal. 

g. DAY or NITE ; Determined from status word. 

h. MAG or GYRO ; Magnetometer or gyro reference 

(status word) . 

i. SHLD/on-off : Determined from status word — 

charged particle. 

j. CNTR/on-off ; central detector -- determined 

from analog word (ASC 1-5) . 

k. GAIN/hi-lo : Gain high or low — determined 

from status word. 

l. STEP NUMBER : Analog word ASC 1-6. 

The step number is calculated 
using same formulae and constants 
as in the plot section. 

: One summary line is printed for 
3 minutes of data; one full 
scan, 3 intermediate scans, or 
6 short scans are represented 
by one line. 


This is the time of the major 
y frame in which change occurs — 
the time is the accumulation time. 


Summary Line 
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a. DAY 


b. HOUR 

c. MINUTES 


I This is the first major frame in 
/ the section processed; it is the 
accumulation time. 


d. SECONDS ’ 


e. SOLAR 


DEAD TIME 

(seconds) = DEAD TIME * .001515 


CLOCK TIME 
(seconds ) 


8 FULL 

PHA CLOCK TIME * 1/390.625 * 2 INTER 

1 SHORT 


GAMMA SUM 


SOLAR 
^ GAMMA 


• 9 / ( 


SOLAR 

CLOCK TIME 


SOLAR 
DEAD TIME 


Following a radiation calibration: 


GAMMA SUM 
GAMMA LOG 
CUP RATE 




SOLAR 

GAMMA 


•9mI9 ^ 


100.0 


-j 4 - q/No- major frames)*.! 
^ GAMMA . 3 to ^ 

MeV 

, , ^ E SOLAR CUP 

= Average solar cup rate= ^^^ 


SLAB RATE 


= Average solar slab rate= 


E SOLAR SLAB 
No. major frame 


f. BACKGROUND 


DEAD TIME 

(seconds) = DEAD TIME * .001515 


CLOCK TIME 8 FULL 

(seconds) = PHA CLOCK TIME * 1/390.625 * 2 INTER 

1 SHORT 


GAMMA SUM 


BACKGROUND - BACK GROUN D- BACKGROUND . 

^GAMMA .3 to 9/ ^CLOCK TIME DEAD TIME ' 
MeV ' 


Following a radiation calibration 


GAiiMA SUM = 0.0 


GAMMA LOG 
CUP RATE 

SLAB RATE 


.BACKGROUND 
^^GAMMA . 3 to 
MeV 



major frames)*.! 


Average background= 
cup rate 


S BACKGROUND CUP 
No. major frames 


= Average background- 
slab rate 


E BACKGROUND SLAB 
No. major frames 
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g. AVERAGE DETECTOR 
TEMPERATURE 

h. AVERAGE ELECTRONIC 
TEMPERATURE 


i. AVERAGE CENTRAL 
HIGH VOLTAGE 

j. AVERAGE SHIELD 
HIGH VOLTAGE 

k. STATUS BITS: 


1 . 


SCAN MODE 

• 

'F'=Full , 
*S’==Short 

' I *=Interraediate 

QUADRANT 

• 

' A '=Alternate , 'N'=Normal 

ELECTRONIC 

CALIBRATION 

• 

9 

' E ' =ON 

' '=OFF 

RADIATION 

CALIBRATION 

m 

9 

o 

II 

• ' =OFF 

DAY-NIGHT 

indicator 

m 

* 

'D'=day 

'N'=night 

MAG- GYRO 
reference 

« 

• 

' M ' =mag 

'G’=gyro 

CHARGED 

PARTICLE 


* p ' =ON 

' ' =OFF 

CENTRAL 

DETECTOR 

ft 

• 

' C ' =ON 

■ «=OFF 

AVERAGE LOW 
VOLTAGE 





m. NUMBER SYNC 
ERRORS IN 
SECTION PRO- 
CESSED 


n. ERROR MESSAGE 
NUMBER — if 
any 


Cross-reference with error listing at end of line 
summary . 
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It is possible to have error messages inter- 
spersed with suromary lines as well as having them 
printed in an error listing at the end of the 
run . 

This would simply involve recompiling the main 
program with changes in the data statements con- 
taining the logical unit numbers for the differ- 
ent print sets used. 

2. File, Tape, and Run Summaries (Output Each Run) 

These summaries are an acctunulation of statistics 
concerning the quantity and quality of the data for 
either a file, a tape, or a whole run. 

Here is a list of the parameter accumulators that 
produce the necessary statistics: 

a. Count incrementer for sections processed. 

b. Count incrementer for sections bypassed. 

c. Count incrementer for complete (=12 major 
frames) sections processed. 

d. Count incrementer for complete sections pro- 
cessed with no analog flags. 

e. Count incrementer for complete sections pro- 
cessed with no MF flags. 

f. Number of scheduled status words missing or 
not recognized (processed sections) , 

g. Number of time gaps (imbedded within a Decoram 
file) - total. 

h. Number of time gaps (imbedded within a Decomm 
file) - total "short". 

i. Major frames lost due to time gaps, 

j. Major frames bypassed. 

For major frames processed: 

k. Total. 

l. No flagged analog. 

m. No flagged DSF (digital subcora) . 

n. No flagged MF (main frame) . 
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For X ray sequences selected for processing: 

o. Total selected. 

p. Total selected wih no flags for digital subcom. 

q. Sync error instance count for frames processed. 

r. Sync error bit count for frames processed. 

s. Contradiction count. 

t. Day-night change count (of sections) . 

u. Radioactive calibration count (of sections 
starting with R-Cal in progress) . 

V. Electronic calibration count (of sections 
starting with E-Cal in progress). 

w. Total sections (processed or bypassed) . 

For file summary: 

X. I/O errors detected. 

y. Begin time parameters (yr, day of yr, hr, min, 
sec) . 

z. End time parameters (yr, day of yr, hr, min, 
sec) . 

aa. Tape sequence count, 

bb. File sequence count. 

For tape siimraary : 

cc. I/O errors detected. 

dd. Earliest begin time parameters. 

ee. Latest end time parameters. 

ff. Tape sequence count. 

gg. Final file count. 

For run summary : 

hh. I/O errors detected. 
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ii. Earliest begin time parameters, 
jj. Latest end time parameters, 
kk. Final tape sequence count. 

11. Total files summarized. 

mm. Files summarized but completely bypassed. 

3. Data Anomaly Messages (Output Each Run) 

Error messages are numbered so as to correspond to a 
summary line of the line summary. The number "nnnn" 
below represents this sequence count. It appears at 
the end of a summary line and at the beginning of the 
corresponding error message. There is also a severity 
code accompanying each message. This code ’-s' simply . 
tells the user the seriousness of the problem encountered 
A severity code of 0 or 1 is quite common and reflects 
no serious problem. A severity code of 2 reflects 
greater problems such as time backs lippage or I/O errors. 

It is good to note that even if the line summary is 
not requested by the user, error messages and file, 
tape, and run summaries are provided by the program. 

The messages that make up the error message listing 
are as follows ; 


nnnn 


-s 


-s 


-s 


-s 


-s 


= SEQUENCE COUNT (F^' PASS- 1 RUN .MADE AT 
nnmm HOURS OF yydd) OF FOLLOT-JING. MESSAGE 
SERIES. 


I/O ERRORS OCCURRED ON n BLOCKS. IDENTIFIERS 
(TAPE, FILE, BLOCK, SENSE 1, SENSE 2) ARE 
SHOWN BELOW. 


f, b, X, 


— t 


n 


f b 
n n 


n n 


PROGRAM TERMINATION REQUESTED BY FEEDER. 

CALL ARGUMENTS = (aa, bb, cc, dd , ee , ff, 
gg) , IHEXPN - hh, QHDERR = p, QHTAPN = q. 

TIME GAP (EXCEEDING nnn MAJOR FRAMES) HAS 
OCCURRED IN DATA ACCEPTED BY PASS -I PROGRAM. 


TIME BACKSLIPPAGE IN TAPE INPUT DATA. PRE- 
VIOUS IDENTIFIERS = (DAY = ddd, SECONDS = 
SSSSS.SS, TIME = tt, FILE = ff, BLOCK = bbb) . 
CURRENT IDENTIFIERS = (DAY = ddd, SECONDS = 
ssssss.ss, TAPE = tt, FILE = ff, BLOCK = bbb). 

PROGRAM TERMINATED BY EXCESS FILES. PANE 
15 IDENTIFIERS = (TAPE = tt , FILE - ff, 

'BLOCK = bbb) . 
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DATA ACCEPTANCE SUSPENDED DUE TO HIGH VOL- 
TAGE BEING OFF.. 

STATUS WORD DISCONTINUITY. SUBROUTINE 
PUZZLE CALLED TO ATTEMPT SCAN MODE IDENTI- 
FICATION. 

ILLEGAL GAP IN STATUS WORDS. IDENTIFIERS 
= (IB = bb, lA = aa, TAPE = tt, FILE = ff, 

BLK = bbb, DAY = ddd, SECONDS = ssssss.ss). 

Ill 1 

ininin m 

nnn n 

SUBROUTINE PUZZLE RESORTING TO FREE-WHEELING 
FOR FINAL SCAN MODE ID ATTEMPT. 

COMPLETE BREAKDOWN IN SCAN MODE ID. IDENTIFIERS 
= (TAPE = tt, FILE = ff, BLK = bb, DAY = ddd , 
SECONDS = SSSSS.SS). 
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YEAR 

MONTH 
DAY 
HOUR 
MINUTES 
SECONDS — 
CHANNEL (1) 
CHANNEL (2) 
CHANNEL (3) 
COUNTS (1) 

COUNTS (2) 

COUNTS (3) 

ID 


Midpoint of Accumulation Time 


Channel number of 1st peak channel. 

Channel number of 2nd peak channel. 

Channel number of 3rd peak channel. 

Sum of counts around 1st peak 
channel. 

Sum of counts around 2nd peak 
channel. 

Sum of counts around 3rd peak, 
channel. 

= '200' for calibration cards. 
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D. X-Ray Data Tape (Optional Output) 

This is a 9-track tape containing interpreted x-ray values. 
For missing major frames, a filler of -I's is used. The 
time parameter reflects real time. 

The logical record length is 76 characters and the block 
size is 1520 characters. 

Here is a list of the parameters on the x-ray tape. (All 
parameters are 16-bit integers except for numbers 7,8,25, 
26,27, and 28 which are 32-bit floating point words): 

1. YEAR of 1st major frame. 

2. YEAR of 2nd major frame. 

3. DAY OF YEAR of 1st major frame. 

4. DAY OF YEAR of 2nd major frame. 

5. HOUR OF DATA of 1st major frame. 

6. HOUR OF DATA of 2nd major frame. 

7. MINUTES OF DATA of 1st major frame. 

8. MINUTES OF DATA of 2nd major frame. 

9. SECONDS OF DATA of 1st major frame. 

10. SECONDS OF DATA of 2nd major frame. 

11. STATUS WORD of 12 bits in half-word of 1st major 
frame. 

12. SOLAR 7.5 - 15 keV 

13. SOLAR 15 - 30 keV 

14. SOLAR 30 - 60 keV 

15. SOLAR 60 - 120 keV 

16. BACKGROUND 7.5 - 15 keV 

17. BACKGROUND 15-30 keV 

18. BACKGROUND 30 - 60 keV 

19. BACKGROUND 60 - 120 keV 
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20. SOLAR QUADRANT TIME of 1st major frame. 

21. SOLAR QUADRANT TIME of 2nd major frame. 

22. BACKGROUND QUADRANT TIME of 1st major frame. 

23. BACKGROUND QUADRANT TIME of 2nd major frame. 

24. STATUS WORD of 12 bits in half word of 2nd major 
frame. 

25. SPIN RATE of 1st major frame. 

26. SPIN RATE of 2nd major frame. 

27. AZIMUTH ENCODER TIME of 1st major ‘frame. 

28. AZIMUTH ENCODER TIME of 2nd major frame, 

29. ELECTRONIC CALIBRATION 1 - on , 2 - off, 0 - no 
major frame. 

30. RADIATION CALIBRATION 1 - on , 2 - off, 0 - no 
major frame. 

31. DAY - NIGHT INDICATOR 1 - day, 2 - night, 0 - no 
status. 


32. EXTRA WORD. 



2^84 


E. Good Time Cards (Optional Output) 


These cards indicate the begin time and end time of good 
Experimenter data scans. 

The format is as follows: 


OfllO^ 


1 11 1 


2 2 
3 3 
44 

5 5 

6 6| 
7 7 


9 9| 

t 2 


J 4 


2 2|2 2|2 2|2 
3 


3 33 


8 3 8 8 8 8 


a 

000 


1 1 


5 5 


9 9 9 9 


000 


33 


4 4 4 4 4 4 


5 5 5 


6 6 8 61 
7 7 7 


CQ 

a I 
s 
o 
o 
w 
m 
QOG 0 


1 1 


l2 2 2 2 2 2 

3 3 3 3 3 3 


68 


777 


9 99 


9 n 
irtEV 


0 010 0 0 


10 

7 }s| 

1 11 111 111 1 


4 4 4 4 
5 5 5 5 5 
6 6 6 8 

7 7 7 7 

8 8 8 8|8 6 


9 9 9 9| 

hi 12 13 V 
KOBl 




|l9 MEI 22l 

1 11 


2 2 


3 3 3 


g 9 9 9| 


a 


5 5 5 


6 6 


77 7 


8 8 8 3 


11 


9 3 9 9 


0^0 mi 


3 3 
4|4 4 


|2 2 
3 3 
|4 4 

5 5 

6 6 8 6|6B| 

7 7 


7 7 

8 B 

9 9 


OOOOOOOOOOOOOOOOOOOOOOOOODOOOOOGODOOOOOOOOOO^ 

|25 2Sb7 28 Z9 Jojai 32133 34 35 36 37 33 39 40 41 42 43 44 45 « 47 48 49 50 ^1 3J 53 54 55 » 51 53 S9 60 61 E2 fiJ M €5 66 67 tt 68 70 7 1 72 73 74 75 76 7T|71 

1 1 ft 1 nhili 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 11 1 1 1 1 1 1 M 1 11 1 n 1 n n 1 11 1 11 


2 22 


5 55 


7 7 


99 

25 26J; 


03 

a . 

s 

o 

o 

w 

•Vi 


2 2 212 

3 3 3 3 

4 4 4 4 

5 5 5 5 

6 6 6 6 
7 7 7 7 
888 


9 99 

27 28 21 30] 


8 8 


9 9 


|0 0 0 

18 73 n 

lit 1 1 


2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2I2 2 2 

3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3.3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 
44444444444444444444444444444444444444444444444444 
5 5|5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 S 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 
8 8|6 6 6 6 6 S 6 6 6 6 8 6 6 6 6 B 6 6 6 6 6 6 5 B 6 6 6 6 6 6 6 6 8 6 6 6 6 6 6 6 6 6 6 6 6|6 6 6 
7 7|7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7|7 7 7 


99999999999999999999999399999999999999999999999 

pm » » S) ia 3 « <l « « « <3 « <I «! »S 50 3I S2 S3 54 55 S6 81 68 59 B) SI 83 S3 64 tS M S7 8» 6S JO II J2 73 ’4 75 7B 77 


8 8 8 8 


9 9 

|7t 79 8S 


YEAR — 

MONTH 

DAY 

HOUR 

MINUTES 

SECONDS 

Bo/So 


1 This is the midpoint of accumula- 
tion of the first scan to be 
processed. 


This field indicates whether to 
begin processing both background 
and solar or solar only. 
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YEAR — 

MONTH 

DAY 

HOURS 

MINUTES 

SECONDS 

Bo/BK 

ID 


This is the accumulation time of 
the last scan to be processed. 


This field indicates whether to 
stop processing at the background 
scan or after processing both 
background and solar. 

= '100' for good time cards. 
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F. Main Frame Data Tape (Optional Output) 

All parameters on this tape are 16-bit integers. The 
logical word length is 908 characters with a block size 
of 908 characters. 


HYR 

Year 

HMO 

Month 

HDA 

Day 

HJUL 

Julian Date 

HHR 

Hour 

HMN 

Minutes 

HSE 

Seconds 


HAN (60) ; Analog words 


HMFDAT(384) : Main Frame Date 


HTGAP : Time gap indicator 


: This time is the read-out time 
of the first major frame processed 
in this section. The time is the 
read-out time of the main frame 
data and the real time of analog 
words and main frame status . 

When the first major frame is 
missing, the read-out time for 
the quadrant scan is calculated 
if possible. 

: Optimally, there are 6 major 
frames processed per quadrant 
scan and this field contains 
the 60 analog words for the 
scan, 10 words from each major 
frame processed. When there 
are major frames missing, -l‘s 
are substituted in the area 
where the gap occurred, if 
possible, (This is not usually 
possible at the beginning of 
a file.) 

: This file contains the main 
frame data corresponding to a 
quadrant scan of 6 major frames. 

If there is a time gap., -I's 
fill the area where the gap 
occurred if this is possible. 

The main frame data was accu- 
mulated 184.32 seconds earlier 
than the above given read-out 
time for a background quadrant 
and 276.48 seconds earlier for 
a solar quadrant. 

: This is an indicator that is 
set to *0' when 6 major frames 
are being processed and set to 
'1' when there is data missing 
in the section. 
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HFRCNT 


HEXTRA 


Frame counter 


Extra field 


This is the major frame counter. 
It indicates how many major 
frames are being processed in 
the section. 

This indicator is set to zero 
and is an extra field added to 
the tape for possible future 
use . 



ORBIT no 

STfmis 


.TOT 

JWLT 

omwi 


£Uf 


SIM 


1^9 


£L 
D€T 
£MTR 
BHICLOf, 
LOU 
« 3-8 8 


• 8^8 ff 




^8 8 


>8 B 


J8 H 










B 


TIflC 
Bar £77 


Line Summary 


RJN CATE VR/DAY OF YR 

216 21 33 34-6 


73353 H^S/HIN 2340 

♦FULL ♦W^JAD ♦NITE ♦GYRO 


TIME 


216 21 
216 21 


TO TC 
SOLAR 

33 4-1 

33 19.4 


216 

21 

32 

33.3 

F 0.0 

45.6 

216 

21 

35 

6.9 

F 0.9 

45.6 

216 

21 

38 

IL.3 

F 1.2 

46.1 

216 

21 

41 

15.6 

F24.3 

4 5. 6 

216 

21 

44 

19.9 

F21.4 

45.6 



216 21 

48 56- 

,4 

216 

21 

47 

24.2 

F16.4 

45.6 

216 

21 

50 

28.5 

F12.8 

44.6 

216 

21 

53 

32.9 

FIO.7 

7.*t 

216 

21 

56 

37.2 

F 9.6 

4 5. 6 

216 

21 

59 

41.5 

F 9.2 

45.6 

216 

22 

2 

45.8 

F 9.9 

45. 6 

216 

22 

5 

50-1 

F 9.5 

46. 1 

216 

22 

8 

54.5 

FIO.4 

45.6 

216 

22 

1 1 

58. 0 

F10.9 

45.6 

216 

22 

15 

3.1 

F12 .6 

46 - 1 

216 

22 

18 

7.4 

FI 5 .0 

45.6 

216 

22 

21 

11.7 

Flo. 7 

45.6 

216 

22 

24 

16.1 

r 1 8 • 8 

45.6 

216 

22 

27 

20.4 

F16.4 

45.6 

2L6 

22 

30 

24.7 

Fie. 6 

45.6 

216 

22 

33 

29. 0 

F16.5 

45.6 

216 

22 

36 

33.3 

F14.6 

46. 1 

216 

22 

39 

37.7 

F12.6 

45-6 

216 

22 

42 

42.0 

FlO.b 

45.6 



216 22 

47 18 

.5 

216 

22 

45 

46.3 

FlO.l 

45.6 

216 

22 

48 

50. 6 

F19.0 

44. 8 

216 

22 

51 

54.9 

F12.1 

7.4 

216 

22 

54 

59.3 

F18.3 

45.6 

216 

22 

58 

3.6 

Fie.i 

45.6 

216 

23 

I 

7.9 

FI6.9 

46. I 


GAMMA 
SUM LOG 


CUP SLAB 


TO TC 
BACKGROUMD 


9.9 

9. a 
20. B 
17.9 

15.1 
16.8 
4. 3 
12. 3 
12. I 

11.7 
12.0 
12.0 

12.4 
12.6 
13- 7 
14. 0 

15.5 

15.6 
16.0 

14.8 
14.4 

13.6 

12.7 

U.2 

8.4 

3.0 

b.9 

10 . 2 

11.7 


F ULL 
FULL 
3.7 
3.7 

3.6 

3.7 

3.6 
FULL 

3.7 

4.5 

3.6 

3.7 
3.7 

3.5 

3.6 
3-5 
3.6 
3-6 

3.5 

3.4 
3-5 
3-5 

3.6 

3.6 
3.b 

3.7 

3.7 
FULL 

3.6 

1.8 

2.5 
2.0 
2.3 
2.8 


^>J3UA0 
N JUAO 


NITE 
Nl TE 


68 

68 

68 

67 

66 


157.6 
157. d 
L56. 8 
134*5 
149. a 
N^UAO 
14-T.9 65 

141. 3 

139.0 

13 u a 
139.5 
133.3 

139.5 

14 1. 3 
14 3. 5 
14 r. 0 

.4 
152. 3 
151-5 

151.0 
149. 3 

147.2 
144. 3 

141. 5 

139.0 
NJUAD 

1 V 8 • 5 6 7 

165.3 
166. 0 

166. 0 
16 5. 3 
U2.9 


.3 

.2 

.0 

.5 

.5 


0.0 

23.6 

23.4 

22.4 
19.2 


ADA Y 
.7 14.9 


65 

64 

64 

65 
65 
65 
65 

65 

66 
6o 
66 
o6 
od 
66 
o5 
65 
65 
o5 


. I 
.9 
.8 
.0 
.2 
.2 
.3 
.5 

• L 
.2 
. 7 

• 6 
. 4 
. 1 
.7 
.3 
.0 
.0 


u.2 

o;o 

9. I 
9.1 

9.1 

9.2 

10.3 
U .6 

13.6 

16.2 

19.3 
20.8 
21 . 1 

20.6 

18.3 

16.3 
14.0 
11 .1 


<Nl TF 

.2 10.2 


76 

83 

82 

80 

76 


.3 
.8 
.3 
. 7 
.5 


17.5 

0.0 

17.4 
17.1 

15. 5 


GYRO 
GYRO 
0.0 
45.6 
45.6 
45 .6 
45.6 
GYFO 

45.6 

44.6 

0.0 

45.6 
45.6 
45.6 
45.6 
45.6 
45.6 
45.6 
45.6 
46. 1 

45.0 
45.6 
46. I 
45.6 

45 .6 
45.6 

46 . I 
GYFO 
45.6 
44.3 

0.0 

46.1 
45.6 
45.6 


♦^SMLO/ON 

GA^^MA 
SUM LOG 

SHLO/GN 
ShlO/ON 
0.3 3.3 


CMTR/ 

CUP SLAB 


♦ GAIM/m STEP/ 0 

TEMP fFHP CENT CP STATUS 
OET FL HI V HI V BITS 


LVPS TG SYNC MESSAGE 
ERRS 


♦CNTR/ON 
CNTR/ON 
156.0 67.2 


18.1 

19.3 

LB.l 

16.6 


3.3 

3.6 

3.5 

3.6 


156.1 
155. 3 

152.5 

147.6 


67.1 
67.0 
66.4 

65.2 


$hLD/ON 
14.1 3.6 


CNTR/ON 
142.3 65.7 


16.1 
0.0 
12.2 
12.0 
12.0 
12. I 
12.2 

13.0 

13.9 

14.9 

16.9 

17.3 
16.7 
1,7. 7 
16.9 

15.0 
14. I 

12.3 


4.5 

3.6 

3.7 

3.6 

3.7 
3.7 

3.6 

3.7 
3. 7 

3.6 
3.3 

3.7 
3 .8 
3- 7 

3.8 

3.6 

3.7 
3 .6 


139.5 

136.3 
137.1 
I 3 3 

137.4 

139.3 

142.0 
14 5.6 

143.4 
L51.9 
153.8 
15^. 0 

153.1 
151-3 
149- I 
I V 'j • 5 
14 1.5 

139.5 


65.3 

64.3 

64.8 

64.9 

64.8 

65.0 

65.2 

65.8 
6 5.2 
66*3 
6/. 3 
6 7.4 

67.1 
65.8 
66-7 
6 6.3 
65.7 

65.3 


ShlO/QN 
11-8 3.5 


C\TP/ON 
146.4 66-4 


d.6 
0 . 0 
6.2 
3.6 
9.3 


1.9 

1.4 

1.5 
2.0 
2.4 


16^.7 
165.3 
165.5 
164.7 
U2. 3 


7b. 1 
75.3 
75.1 

75.3 

73.4 


GA I\/HI 
GAIN/Hl 
14.4 13.9 
14.4 13.8 
14.4 13.9 
14.4 13.9 
14.4 13.8 
GAIN/Hl 
14.4 13.8 
14.4 13.9 
14*4 13.3 
14.4 13.9 
14.4 13.9 
14.4 13.9 
14.4 13.9 
14.4 13.9 
14.4 13.9 
14.4 13.9 
14.4 13.9 
14.4 13.8 
14-4 13-9 
14.4 13.8 
14.4 13.9 
14.4 13.9 
14.4 13-9 
14.4 13.9 
14.4 13.9 
GA IN/HI 
14.4 13.9 
14.4 13.9 
14.4 13.9 
U.4 13.9 
14.4 13.9 
14.4 13.9 


STEP/ 0 
♦STEP/ 63 


172 

204 

N 

»GPC 

234 

1 

172 

204 

M 

NGPC 

235 

0 

172 

204 

N 

NGPC 

234 

D 

172 

204 

N 

NGPC 

234 

0 

172 

204 

N 

^^GPC 

2 35^ 

0 

STEP/ 

63 





172 

204 

N 

'jgp: 

234 

0 

172 

204 

N 

RDGPC 

234 

0 

172 

204 

N 

ogp: 

235 

0 

172 

2D4 

N 

DGPC 

235 

0 

172 

204 

N 

OGPC 

235 

0 

172 

204 

N 

DGPC 

235 

0 

172 

204 

N 

OGPC 

235 

0 

172 

204 

N 

OGPC 

234 

0 

172 

204 

N 

dgp: 

234 

0 

172 

204 

N 

OGPC 

235 

0 

172 

2 04 

N 

OGPC 

235 

0 

172 

204 

N 

DGPC 

234 

0 

172 

204 

N 

OGPC 

234 

0 

172 

204 

N 

OGPC 

234 

0 

172 

204 

N 

DGPC 

234 

0 

172 

204 

N 

DGPC 

234 

0 

172 

204 

N 

dgp: 

234 

0 

172 

204 

N 

DGPC 

234 

0 

172 

2 04 

N 

OGPC 

235 

0 

STEP/ 63 





172 


N 

OGPC 

234 

0 

172 

20<r 

N 

RVGPC 

235 

0 

172 

205 

N 

MGPC 

235 

0 

172 

205 

N 

NGPC 

235 

0 

172 

204 

N 

NGPC 

234 

0 

172 

204 

N 

NGPC 

234 

0 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


l-O 


to 

I 

CO 

V£) 



1 = 
-0 
-I 

2 ^ 
•0 

3 ^ 
-0 

4 » 
-0 

5 - 
-0 

6 a 
-I 
-0 
-0 
-I 
•0 
-0 

-I 

-0 

-0 

-0 

-z 


-1 

-0 

•0 

-0 

-2 


-1 
•0 
-0 
-0 
-I 
•I 
-0 
-0 
-0 
-I 
-1 
-0 
-0 
r - 
-0 
-1 
3 ■ 
-0 
9 * 
-0 
3 - 
-0 
-I 
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ST.%TU‘.i olii<D U I SCUUT I NUl TV * 
^UtiRLIuriNt PESUKTJNG 


Sr.UiJENCt CUJNT CFOP. PASS-I RUN MADE AT 922 HOURS OF 721191 OF FOLLOWING MESSAGE SERIES. 

SUBROUTINE PUZZLE CALLEO TO ATTEMPT SCAN MODE IDEM IF I CA T ION. 
TO FKEE-WFEEUNG FC« FINAL SCAN MODE 10 ATTEMPT. 

922 HriURS OF 721191 OF FOLIOHING MESSAGE SERIES. 
PUZZLE CALLED TO ATTEMPT SCAN MODE IDENTIF ICATION. 
922 HOURS OF 72119J OF FOLLOWING MESSAGE SERIES. 
PUZZLE CALLED 10 ATTEMPT SCAN MODE IDENTIFICATION. 
922 HOURS OF 721191 OF FOLLOWING MESSAGE SERIES. 
PUZZLE CALLEO TO ATTEMPT SCAN MODE IDENTIFICATION. 
922 HOURS OF 721191 OF FOLLOWING MESSAGE SERIES. 
PUZZLE CALLEO TO ATTEMPT SCAN MODE IDENTIFICATION. 
RUN made at 922 HOURS OF 721191 OF FOLLOWING MESSAGE SERIES. 
DUE TO HIGH VCLTAGE 0EING OFF 
SUBROUTINE PUZZLE 
SUOKCUTINE PUZZLE 
DUE TO HIGH VOLTAGE 
SUBROUTINE PUZZLE 
SUBROUTINE PUZZLE 


SE^UElJCt COUNT (FOR PASS- 1 
STATUi WORD JISCONTINIJITV. 
SEguLNCE COUNT IFOR PASS-I 
STATUS WORD DISCONTINUITY. 
SeOUENCE COUNf IFOR PASS-I 
StATUi MDKD- DISCONTINUITY. 
SEQUENCE CUUNI (?0R PASS-I 
STATUS WORD DISCONTINUITY. 
sequence count IFOR PASS-I 
DATA acceptance SUSPENDED 
STATUS WUKU discontinuity. 
STATUS WORD DISCONTINUITY. 
DATA acceptance SUSPENDED 
STATUS WORD discontinuity. 

status word discontinuity. 


RUN MADE AT 
subrout INE 
RUN MADE AT 

sunaouT ine- 

RUN MADE AT 
SUCRCUTINE 
RUN MADE AT 
SUBROUTINE 


SCAN 

SCAN 


MODE 

MODE 


IDENTIFICATION. 

IDENTIFICATION. 


CALLEO TO ATTEMPT SCAN MODE 
CALLED TO ATTEMPT SCAN MODE 
CALLED TO ATTEMPT SCAN MODE 
•11. IA=36f TAPE= It FILE® 6 
00000000 
OOOOOOOC 
00000000 


0 

0 0 0 0 
0 0.0 0 
BEING OFF. 

CALLEO TO ATTEMPT 
CALLED TO ATTEMPT 
CALLEO TO ATTEMPT 
TAPE® 

0 0 0 
0 0 0 
0 0 0 


CALLEO TO ATTEMPT 
CALLEO TO ATTEMPT 
BEING OFF. 

CALLEO TO ATTEMPT SCAN MODE IDENTIFICATION. 
CALLEO TO ATTEMPT SCAN MODE IDENTIFICATION. 
SUSROUriNE PUZZLE RESORTING TO FREE-WHEELING FOR FINAL SCAN MODE ID ATTEMPT. 

DATA acceptance SUSPENDED DUE TO HIGH VCLTAGE BEING OFF. 

STATUS WORD DISCONTINUITY. SUBRCUTINE PUZZLE 

STATUS WORD DISCONTINUITY. SUBROUTINE PUZZLE 

status word DISCONTINUITY. SUBROUTINE PUZZLE 

ILLEGAL GAP IN STATUS WORDS. I DENT I F I £ RS* ( 1 G 

0 OCODOODOOOOOOOOOOOOOCOO'OOO 
llll llli I I lOOOODOOOCOCOOOOO 
2222222222200COOOOOCOOOOO 0.0 
DATA ACCEPTANCE SUSPENDED DUE TO HIGH VCLTAGE 
STATUS WORD DISCONTINUITY. SUBRCUTINE PUZZLE 

STATUS WORD discontinuity. SUBROUTINE PUZZLE 

STATUS WORD DISCONTINUITY. SUBROUTINE PUZZLE 

illegal gap in STATUS WORDS. I DENT I F I E RS® U 0= 19 1 IA«37t 

OOlOOOOOOOOOOOCOCOCCOOOOOOOO 
OOllllllllllllOOOOOOOOOOOOOO 
00222222222Z22 0 0C00CC0O00000 
DATA ACCEPTANCE SUSPENDED OUE TO HIGH VCLTAGE BEING OFF. 

STATUS WORD U I iC ON T I NU I TY . SUBROUTINE PUZZLE CALLEO TO ATTEMPT SCAN 

STAIUS WJrtU UlSCONTINUl TY. SUBRCUTINE PUZZLE CALLEO TO ATTEMPT SCAN 

STATUS WORD DISCONTINUITY. SUBROUTINE PUZZLE CALLEO TO ATTEMPT SCAN 

SUORUUllNE PUZZLE RESORTING TO FREE-WHEELING FOR FINAL SCAN MODE ID ATTEMPT, 

DATA acceptance SUSPENDED OUE TO HIGH VCLTAGE BEING OFF 
STATUS WORD UISCONTINUITY. SUBROUTINE PUZZLE 

STATUS WORD DISCONTINUITY. SUBRCUTINE PUZZLE 

STATUS WJRU UISCONTINUITY. SUBROUTINE PUZZLE 

SUBROUTINE PUZZLE RESORTING TO FREE-WHE EL I NG 
DATA' ACCEPTANCE SUSPENDED DUE TO HIGH 


SCAN 

SCAN 

SCAN 


MODE 

MODE 

MODE 


I, FILE® 7 
0 0 0 0 0 
0 0 0 0 c 
0 0 0 0 0 


MODE 

MODE 

MODE 


IDENTIFICATION. 
lUENT IFICATION. 
IDENTIFICATION, 

DLK® I5i OAY®290, SECONDS* 
0000000000 
I 1 I 1 1 I 1 t 1 1 
1111122222 

IDENTIFICATION. 

IDENTIFICATION. 

IDENTIFICATION, 

BLK® 15, 0AY®290, SECONDS' 
I 000000000 
1 I 1 1 1 I I 1 1 1 
I I 1 I 1 I 2 2 2 2 

IDENTIFICATION. 

IDENTIFICATION. 

IDENTIFICATION. 


•29473.65) 


•29065,82) 


CALLEO TO ATTEMPT SCAN MODE IDENTIFICATION. 
CALLED TO ATTEMPT SCAN MODE lUENT IF tCATlON. 
CALLED TO ATTEMPT SCAN MODE IDENTIFICATION. 
rCR FINAL SCAN MODE ID ATTEMPT, 

VCLTAGE BEING OFF. 


STATUS WORD 0 1 S CONT I N<J I T Y . SUBRCUTINE 
STAIUS WORD DISCONTINUITY. SUBRCUTINE 
SEQUENCE COUNT IFOR PASS-I RUN MADE AT 
STAIUi WORD OISCUNI INUITV, SUBROUTINE 


11 


PUZZLE CALLED TO ATTEMPT SCAN MODE IDENTIFICATION. 
PUZZLE CALLEO TO ATTEMPT SCAN MODE IDENTIFICATION. 
922 HOURS OF 72119) OF FOLLOWING MESSAGE SERIES. 
PUZZLE CALLEO TO ATTEMPT SCAN MODE IDENTIFICATION, 
SUBROUTINE PUZZLE RESURTING TO FREE-WHEELING FOR FINAL SCAN MODE ID ATTEMPT. 

RUN made AT 922 HOURS OF 72119) OF FOLLOWING MESSAGE SERIES. 

PUZZLE called to ATTEMPT SCAN MODE IDENTIFICATION, 
922 HOURS OF 72119) OF FOLLOWING MESSAGE SERIES. 
PUZZLE CALLEO TO ATTEMPT SCAN MODE IDENTIFICATION, 
922 HOURS OF 72119) OF FOLLOWING MESSAGE SERIES. 
PUZZLE CALLEO TO ATTEMPT SCAN MODE IDENTIFICATION. 
RESORTING TO FREE-WHEELING FOR FINAL SCAN MODE ID ATTEMPT. 

PASS-I RUN MADE AT 922 HOURS OF 72119) OF FOLLOWING MESSAGE SERIES. 


SEQUENCE COUNT IFOR PASS-I 
STATUi HURU UISCONTINUITY. SUBROUTINE 
SEQUENCE COUNT (FOR PASS-1 BUN MAOE AT 
STATUS WURO UISCONTINUITY. SUBROUTINE 
SEQUENCE COUNT (FOR PASS-l RU}J MADE AF 
STATUS hCiRU UISCONTINUITY, SUBROUTINE 
SUBRUUriNE PUZZLE 
SEQUENCE COUNT (FOR 


NJ 

I 

ID" 

O 


Data Anomaly Messages 



File, Tape, and Run Summary 


FILE SUMMARY FOR ITH FILE RE&O FROM TAPE-(COJNT= I, VOL 5 E R=EXD^ 2^ } OJRl^G PASS-I RU^ STARTED AT 23^0 HOURS OF 73355. 


DATA TIMES FROM 1972V 2160 2lH 35M J7$ TQ 1972V 216D 23H 7M 47S. 0 I/O ERRORS. 0 SC SYNC BITS IN EPRO^ IN 0 



¥ 

SECTION 

1 QUANTITY 

¥ 

MAJOR- 

-FRAME 

quantity 

tk 

SECTION 

QUAl ITY 

¥ 

MAJOR-FRAME QUALITY 

¥ 

XRAY 

data 




PRO- 

BY- 

9 


PRO- 

BY- 

T-GA P 

¥ 

PRO- 

COM- 

CLEAN CLEAN 

* 

PRO- clean 

CLEAN 

clean 

¥ 

SE- 

COMPS 


¥ 

total 

CESS 

PASS 

¥ 

tjtal 

CESS 

PASS 

LOSS 

ir 

CESS 

PLETE 

WHEEL MF 

¥ 

CESS WHEEL 

OSF 

MF 

¥ 

LECT 

CLEAN 

CNT 

* 

30 

30 

0 


358 

353 

0 

0 

¥ 

30 

29 

29 29 

* 

358 357 

357 

357 

¥ 

179 

177 

HRS 

¥ 

1.53 



¥ 

1.53 

1.53 

0.0 

0.0 

¥ 


1.43 

1.48 U43 

¥ 

1.53 1,52 

1.52 

1.52 

¥ 

1.53 

1.51 

PCT 

¥ 

93.4 



¥ 

93.4 

93.4 

0.0 

0.0 

¥ 


90. 3 

90.8 90.8 

¥ 

93.4 93.1 

93.1 

93.1 

* 

93.4 

92.3 


MINOR FRAMES. 


FILE SUMMARY FOR 2TH FILE READ FROM Tfl PE :: iCOUNT = It V0LSER = EXD224 1 DURING PASS-l RUN STARTED AT 2340HDUPS OF 73355. 

DATA TIMES FROM 1972Y 2 UD 23H 13M 55S TO 1972Y 217D OH A6M 5S. 0 I/Q ERRORS. I SC SYNC BITS IN E»ROR IN I MINOR FRAMES. 



¥ 

SECTION QUANTITY 

4 

major- 

-frame 

QUANTITY 

¥■ 

SECTICN 

QUALITY 

¥ 

MAJOR-FRAME QUALITY 

¥ 

XPAY 

DATA 


♦ 


PRO- 

BY- 

♦ 


PRO- 

BY- 

T-GAP 

4 

PRO- 

COM- 

CLEAN CLEAN 

4 

PRO- 

CLEAN 

CLEfiN CLEAN 


SE- 

COMPt 


¥ 

TOTAL 

CESS 

PASS 

♦ 

total 

CESS 

PASS 

LOSS 

4 

CESS 

PLETE 

WHEEL MF 

¥ 

CESS 

HHF-L 

OSF MF 

4 

LECT 

clean 

CNT 

4 

30 

30 

0 

9 

358 

354 

0 

4 

* 

30 

26 

27 27 

4 

354 

351 

351 351 

* 

177 

172 

HRS 

¥ 

1.53 



4 

1.53 

1.51 

0.0 

0.02 

4 


1.43 

1.38 1.38 

It 

1.51 

1,50 

1.5D 1.50 

* 

1.51 

1.47 

PCT 

¥ 

93.4 



¥ 

93.4 

92.3 

0.0 

l.O 

4 


87. 6 

84.5 34.5 

4t 

92.3 

91.5 

91.5 91.5 

It 

92.3 

89.7 


FILE SJMMARy FOR 3TH FILE READ FROM TA PE* (C OUNT* I, V0LSERaEX0224 ) DURING PASS-I RUN STARTED AT 2340 HDURS OF 73355. 


DATA 

TIMES FROM 1972Y 2UD 

OH 52M 13S 

TO 1972Y 2170 

ZH 

IH 5S 

.. 0 I/O cKRDRS. 

303 SC 

SYNC 

BITS 

IN 

ERROR 

IN 72 



SECTION QUANTITY 

¥ 

MAJOR-FRAME 

QU ANTITY 

4 

SECTION 

QUALITY 

4 

MAJDR-F=IAME QUALITY 

♦ 

XRAY 

DATA 



PRO- BY- 

* 


PRO- 

BY- T-GAP 

4 

PRO- 

COM- 

CLEAN CLFAN 

4 

PRO- 

CLEAN 

CLEAN 

CLEAN 

♦ 

SE- 

COMPS 



TOTAL CESS PASS 

4 

TOTAL 

CESS 

PASS LOSS 

4 

CESS 

PLETE 

WHEEL MF 

¥ 

CESS 

WHEEL 

nSF 

MF 

ft 

LECT 

clean 

CNT 


23 23 0 

¥ 

269 

268 

0 1 

4 

23 

21 

20 20 

4 

268 

259 

258 

258 

¥ 

131 

L28 

HRS 


1.15 

* 

1.15 

1.14 

0.0 0.00 

¥ 


1,08 

L.Q2 1.02 

¥ 

1.14 

I.U 

1.10 

1.10 

ft 

U12 

1.09 

PCT 


92.0 

¥ 

92.0 

91.6 

0.0 0.3 

4 


86.2 

82. 1 82,1 

¥ 

91.6 

86.6 

68.2 

88. 2 

¥ 

&9.6 

,87.5 


FILE summary for 4TH FILE READ FROM TAPE^ICOUNT* i, V0LS£R-eX0224 I DURING PASS-I RUN STARTED AT 2340 HOURS OF 73355. 


DATA TIMES FROM 1972V 2170 2H 7M 2BS TO 1972Y 2170 3H 39M 7S. 0 1/0 ERRORS. 


♦ 

¥ 

CNT ♦ 
HRS * 
PCT 


SECTION (.iUANTITY 
PRO- BY- 
CESS PASS 
31 0 


0 SC SYNC BITS 


total 

31 

1.5Z 

93.3 


MAJOR-FRAME QUANTITY * SECTICN QUALITY ♦ 
PRO- 3Y- T-GAP ♦ PRO- COM- CLEAN CLEAN ¥ 

total cess pass loss n CESS PLETE WHEEL MF ♦ 

356 356 0 0 ♦ 31 29 29 29 ♦ 

1.52 1.52 0.0 0.0 * 1,43 i.46 U43 ¥ 

93.3 93.3 0.0 0.0 ♦ 91.2 91.2 91.2 ¥ 


MAJOR-FRAME. QUALITY 
PRO- CLEAN CLEAN CLEAN 
CESS WHEEL OSF MF 
356 355 355 355 

1.52 1.51 1.51 1.51 

93.3 93.1 93.1 93.1 


IN ERROR IN 0 
¥ XRAY DATA 

♦ £E- CDMPC 

♦ LECT CLEAN 

♦ 178 176 

¥ 1.52 1.50 

♦ 93.3 92.3 


MINOR FRAMES. 


FILE SUMMARY FOR 5TH FILE READ FROM TAP£*<C0UNT« 1, V0LSER=EX1)224 ) DURING PASS-I RUN STARTED AT 2340 H3UPS OF 73355. 


DATA TIMES FRCM 1972Y 2170 3H 45M 15S TO 1972Y 217D 5H 16M 54S. 


0 I/O ERRORS. 


0 SC SYNC BITS IN ERROR IN 0 MINOR FRANES. 



4 

SECTION QUANTITY 

ft 

MAJOR-FRAME 

QUANTITY 

ft 

SECTION 

QUALITY 

ft 

MAJDR-FRAME QUALITY 

ft 

XRAY 

DATA 


4 


PRO- 

BY- 

ft 


PRO- 

BY- 

T-GA P 

ft 

PRO- 

COM- 

CLEAN CLEAN 

4 

PRO- 

CLEAN 

CLFAN 

CLEAN 

ft 

SE- 

COMPS 


ft 

TOTAL 

CESS 

PASS 

ft 

TOTAL 

CESS 

PASS 

LOSS 

ft 

CESS 

PLETE 

WHEEL HF 

4 

CESS 

WHEEL 

DSF 

MF 

ft 

LECT 

clean 

CNT 

ft 

31 

31 

0 

ft 

358 

358 

0 

0 

4 

31 

29 

29 29 

ft 

358 

357 

357 

35 7 

ft 

179 

177 

HRS 

ft 

U53 



ft 

1.53 

1,53 

0.0 

0.0 

ft 


1.48 

1.46 U48 

ft 

1.53 

1.52 

1.52 

1.52 

ft 

1 .53 

1.51 

PCT 

ft 

93.9 



4 

93.9 

93.9 

0.0 

0.0 

• ft 


91.2 

91.2 91.2 

ft 

93.9 

93.6 

93.6 

93.6 

ft 

93.9 

92.8 


FILE SUMMARY FOR 6TH FILE READ FROM TAPE^ICOUNT* It V0LSER*EX0224> DURING PASS-I RUN STARTED AT 2340 HOURS OF 73355* 

DATA TIMES FROM 1972Y 217D 5H 23M 39S TO 1972Y 217D 6H 54M 47S- 0 I /J ERRORS. 0 $C SYNC BITS IN ERROR IN 0 MINOR FRAMES. 



ft 

section 

QUANTITY 

ft ■ 

MAJOR- 

-F RAME 

QUANTITY 

* 

SECTION 

QUAL ITY 

ft 

MAJOR-FRAME QUALI TY 

4 

XRAY 

DATA 


ft 


PRO- 

BY- 

ft 


PRO- 

BY- 

T-GA P 

ft 

PRO- CdM- 

CLEAN CLEAN 

ft 

PRO- 

CLEAN 

CLEAN 

CLEAN 

ft 

SE- 

COMPS 


ft 

TOTAL 

CESS 

PASS 

ft 

TOTAL 

CESS 

PASS 

LOSS 

4 

CESS PLETE 

WHEEL MF 

ft 

CESS 

WHEEL 

DSF 

HF 

ft 

LECT 

CLEAN 

CNT 

ft 

31 

31 

0 

4 

356 

356 

0 

0 

ft 

31 29 

29 29 

ft 

356 

355 

355 

355 

ft 

178 

177 

HRS 

ft 

1-52 



ft 

1.52 

1.52 

0.0 

0.0 

4 

1.48 

1.48 1.48 

ft 

1.52 

1.51 

U5l 

1.51 

4 

1,52 

1*51 

PCT 

ft 

93.8 



ft 

93.8 

93.8 

0.0 

0.0 

4 

91.7 

91.7 91.7 

ft 

93.8 

93.6 

93.6 

93.6 

ft 

93,3 

93.3 


FILE SUMMARY FOR 7TH FILE READ FROM TAPE-ICGUNT- 1, V0LSER«6X0224^) DURING PASS-I RUN STARTED AT 2340 HOURS OF 73355. 

DATA TIMES FROM 1972Y 217D 7H IM 5S TO 1972Y 217D SH 33M 14$. 0 1/3 ERRORS. 3 SC SYNC BITS IN ERROR IN I MINOR FRAMES. 

♦ SECTION QUANTITY ♦ MAJOR-FRAME QUANTITY * SECTION QUALITY ♦ MAJOR-FRAME QUALITY * XRAY DATA 

* PRO- BY- ♦ PRO- af- T-GAP ♦ PRO- COM- CLEAN CLEAN ¥ PRO- CLEAN CLEAN CLEAN * S E- COMPS 


to 

J 



File, Tape, and Run Summary 


DATA TIKES FROM 1972Y 

♦ SECTION QUANTITV » 
PRO- BY- ► 


26S TO 1^72Y 2190 3H 0 I/O ERRORS. 


CNT 

HRS 

PCT 


2H 

MA JUR-FRAMt 
PRG- 


TOTAL 

30 

1.52 

93.3 


CESS 

30 


PASS ^ 

0 * 
« 
» 


TJTAL 


CESS 

Vi.J 


QUANTITY 
61- T-CiAP 
PASS LOSS 
0 0 
0.0 0.0 
0.0 0.0 


* SEcrns aoAL !Ty * 

* PPG- CO'-I- CLEAN CLEAN * 

* CESS PLSre rtHEEL HF * 

* 30 23 28 28 • 

* 1.43 l.<*3 1.43 • 

* 88.1 93. I 98. I * 


MAJOP-FPAME OUALITY * 
PRO- CLEAN CLEAN CLEAN » 
CESS WHEEL DSF PF * 
3S6 355 355 355 >» 

1.52 1.51 1.51 1.51 * 

<)3.3 93.1 93.1 93.1 * 


TAPE SUMMARY FOR 39 FILES KEAO FROM TAPE t C GUNT= I, V0LSEF*E<0229 J DURING PASS-1 RUN STARTED AT 1700 


DATA TIMES FROM 1972Y 21oL) 21h 35M 3/S TO 1972Y 2190 3H 36M tS. 0 I/O ERRORS. 


* SECTION quantity ♦ HAJCk-FRA.HE QUANTITY 


section quality 



♦ 


PRO- 

BY- 



PRO- 

BY- 

T-GAP 


PRO- 

COM- 

CLEAN 


t 

TOTAL 

CESS 

PASS 

* 

TOTAL 

CESS 

PASS 

LOSS 

* 

CESS 

PLETE 

hhEE L 

C^^T 

* 

988 

988 

0 

• 

U46i 

11455 

0 

6 


988 

922 

BbB 

HRS 


48.90 




4ti. 90 

48. o7 

0. Q 

0.03 

♦ 


47.2 1 

45.47 

POT 


90.4 




90 .*t 

90.3 

0.0 

0.0 

* 


87.2 

84. 0 


MF 


MAJOR-FRAME QUALITY * 

PRO- clean clean clean * 

CESS WHEEL DSF MF * 


883 ♦ 11955 11295 11299 11177 * 
*5,21 • 98.87 48.19 98.00 97.89 * 
83.6 * 90.3 89.1 88.7 88.1 • 


RUN SUMMARY FOR 39 FILES READ FROM 1 TAPES DURING PASS-! RUN STARTED AT 1700 HOURS OF 79019. 
DATA TIMES FROM 1972Y 21i»D tlH J5M 3/S TO 1972Y 2190 3H 36M 9S. 0 I/O ERRORS 



♦ 

SECTION 

QUANTITY 

¥ 

MA JDR-FRAME 

QUANTITY 

¥ 

SECTION 




PRO- 

BY- 

¥ 

PRO- 

BY- 

T-GAP 

¥ 

PRO- 

COM- 


♦ 

TOTAL 

CESS 

PASS 

* 

TOTAL CESS 

PASS 

LOSS 

¥ 

CESS 

PLETE 

CMT 

* 

988 

988 

0 

¥ 

11961 11955 

0 

6 

¥ 

988 


HRS 

*■ 

98.90 



¥ 

48.90 48.87 

0.0 

O.Oi 

¥ 


1 

PCT 

4c 

90.9 



¥ 

90.9 90.3 

0.0 

0.0 

¥ 


87-2 


MAJOR-FRAME OUALITY * 

PRO- clean clEan clean ♦ 

CESS WHEEL DSF MF * 
883 • 11955 11295 11299 11177 * 
*5.97 95.21 * 98.87 98.19 98,00 97.69 ♦ 
89.0 83.6 * 90.3 89.1 88.7 88.1 * 


CLEAN CLEAN • 
WHEEL MF 6 
888 


ERROR 

IN 0 

XRAY 

DATA 

SE- 

COMPC 

LECT 

CLEAN 

178 

177 

1.52 

1.51 

93.3 

92.8 

; OF 74014. 

ERROR 

IN 716 

XR^Y 

DATA 

SE- 

COIMPS 

LECT 

CLEAN 

5719 

5547 

48.80 

47.33 

90.2 

87.5 

ERROR 

IN 716 

XRAY 

DATA 

SE- 

COMPG 

LECT 

CLEAN 

5719 

5547 

48.00 

47.33 

90.2 

87.5 


minor frames. 


N> 

I 

VO 

NJ 



PASS-I liDCD TIME CARDS 


JZ 

a 

3 

21 

36 

39*1 

BO 

72 

8 

3 

23 

2 

40.1 

BO 

iz 

8 

3 

23 

11 

32.2 

SO 

72 

8 

3 

23 

11 

52.2 

80 

72 

8 

3 

23 

14 

36.9 

SO 

72 

8 

4 

0 

40 

57.8 

BO 

72 

8 

4 

0 

30 

10.4 

SO 

72 

a 

4 

1 

34 

41.2 

BO 

72 

8 

4 

2 

6 

38.0 

80 

72 

8 

4 

3 

32 

58.9 

BO 

72 

8 

4 

3 

45 

13. 7 

80 

72 

B 

4 

5 

11 

16.7 

BO 

IZ 

B 

4 

3 

20 

50.5 

SO 

72 

8 

4 

6 

49 

55.8 

BO 

72 

8 

4 

6 

58 

47.0 

so 

72 

8 

4 

8 

27 

52.2 

BO 

72 

8 

4 

8 

37 

4.7 

so 

72 

8 

4 

10 

9 

14.3 

BK 

72 

a 

4 

iO 

18 

26.8 

80 

72 

3 

4 

11 

47 

32.1 

BK 

72 

a 

4 

11 

56 

44.6 

80 

72 

8 

4 

13 

28 

54.2 

BK 

72 

a 

4 

13 

38 

6.7 

SO 

72 

8 

4 

15 

7 

12.0 

BK 

72 

8 

4 

15 

16 

24. 5 

BO 

72 

8 

4 

L6 

45 

29.7 

BK 

72 

8 

4 

16 

34 

42.2 

80 

72 

B 

4 

la 

23 

47.5 

BK 

72 

8 

4 

18 

33 

0.3 

BO 

72 

8 

4 

18 

54 

30.5 

SO 

72 

6 

4 

19 

6 

47.4 

BO 

72 

8 

4 

20 

32 

48.3 

BO 

72 

8 

4 

20 

42 

0.8 

SO 

72 

a 

4 

22 

11 

6.1 

30 

72 

a 

4 

22 

23 

22.9 

BO 

72 

a 

4 

23 

49 

23.9 

BO 

72 

8 

5 

0 

1 

40.7 

60 

72 

8 

5 

1 

27 

4U6 

00 

72 

a 

5 

1 

36 

54.2 

SO 

72 

8 

5 

2 

16 

50.4 

BO 

72 

8 

5 

2 

22 

39.0 

80 

72 

a 

5 

2 

44 

29.3 

BK 

72 

B 

3 

2 

53 

41.8 

80 

72 

8 

3 

4 

22 

47.1 

8K 

IZ 

a 

3 

4 

31 

59.6 

BO 

72 

a 

5 

6 

1 

4.8 

BK 

72 

8 

3 

6 

10 

17.3 

80 

72 

a 

5 

7 

36 

18.3 

80 

72 

8 

5 

9 

14 

35.6 

SO 

72 

a 

5 

10 

59 

2.5 

BK 

72 

8 

3 

11 

8 

15.1 

80 

72 

a 

5 

12 

0 

28.6 

BD 

72 

6 

5 

12 

9 

41.1 

SO 

72 

a 

5 

13 

38 

46.3 

8K 

72 

8 

5 

13 

47 

38.B 

BO 

72 

8 

5 

15 

17 

4.1 

BK 

72 

a 

3 

15 

26 

16.7 

BQ 

72 

a 

5 

16 

30 

47.5 

BK 

72 

8 

3 

16 

39 

60.0 

80 

72 

a 

5 

13 

6 

0.9 

BK 

72 

8 

3 

18 

13 

13.4 

BO 

72 

a 

5 

19 

41 

14.4 

BO 

72 

8 

5 

19 

50 

26.9 

SO 

72 

8 

5 

21 

22 

36.5 

BK 

72 

8 

5 

21 

31 

49.0 

BO 

72 

8 

3 

22 

57 

49.9 

80 

72 

B 

5 

23 

10 

6.7 

80 

72 

a 

6 

0 

36 

7.7 

BD 

72 

8 

6 

0 

43 

20.3 

SO 

72 

8 

6 

I 

52 

55.3 

BO 

72 

8 

6 

2 

2 

7.8 

so 

72 

a 

6 

3 

31 

13.1 

BK 



Section 3 


CALI 


Page 


I. 

Introduction 

3-1 

II. 

Macro Systems Flowchart 

3-2 

III. 

Job Stream Schematic 

3-3 

IV. 

Job Control Language 

3-4 

V. 

CALI (Main Program) 

3-5 

VI. 

Subroutine FORTIM (IRUNDA, IRUNT) 

3-9 

VII. 

Subroutine FPUT (IDSN, ICMD, IRSLT, lOVEC) 

3-10 

VIII. 

Description of Input 

3-12 

IX, 

Description of Output 

3-13 

X. 

Sample Output Listing 




3-1 


I. Introduction 


This program reads a series of input cards, the first of which 
contains the nQ to be used in the calculation of the gain con- 
stant {for our purposes, a constant nQ of 80.2 was used). The 
other input cards are calibration cards generated by Pass-I. 
Each card contains midpoint of accumulation time, three peak 
channels, and three peak counts. From this information CALI 
calculates an nQ for each input card from the relation: 



An average nQ is found for all the cards read. 

The program then calculates a gain constant for each card using 
weighted average : 



where : 


Ej = 1.17323 MeV 
E 2 = 1,33248 MeV 

Eg = 2.525 MeV 

Ns 

" Ni + N2 + Ng 

Ni = number of counts under the peak at energy 

ni = the channel that corresponds to the energy E^^. 

An error statistic is calculated for each calibration in the 
following way: 

For i = 1,3 

ERi = (E^ - C(ni + nQ)2) / 

ERROR = 2 (ERj^) 

A magnetic tape record is generated ' for each calibration card 
and contains time at midpoint of accumulation, C, and Uq. The 
program then prints a listing of all the cards read - time, C, 
average nQ, I, Nq, channels, counts, and the error indicator. 

This listing is reviewed by our project engineer and epoch times 
are derived from this source in conjunction with the output 
from the Van Allen Predict program (see Section 6). 



II. Macro Systems Flowchart (CALI) 
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III. Job Stream Schematic (CALI) 
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:V. JOB CONTROL LANGUAGE “ CALI 


/ / T 548-1 2) , • S. CROTEAU tCALl' tCLASS = FfTIME = 03»RE610N-100K 

^/=:aiNECNT 62 


//STEPl EXEC 
''/LKED.SYSLIB 
// 

U 
1 1 

//LKED.SYSIN 


FORTGLG 

nn DSN=USER.T317.SUBL I B,DI SP=SHR 
OD nSN=USER.T548,SUBL IR,OISP=SHR 
no OSN=SYSl. FORTLIB tDI SP=SHR 
no DSN=USER.SSPLIB,DISP=SHR 
DO <= 


CALI OBJECT DECK 


/ 

//GO.FPUTOl DO UNIT= 2400 » DI SP= ( NEWtKEEP ) »L ABEL= ( I » SL ) » 
// DSNAME=CAL 1 , DCB= ( RECFM=F B, LRECL = 36 , BL K S 1 ZE = 1800 ) , 
// V 0 LUME=SER=CC 0922 

//GO.SYSUDUMP DO SYSOUT=A 
//GG.SYSIN no * 

80.2 

/« 

// 
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V. CALI (Main Program) 


Program Language 
Date Written 
Programmer 
Installation 
Computer 

Subprograms Called 


Fortran IV, G-Level 
May 1972 
S . Croteau 

University of New Hampshire 

IBM-360-H50 

FPUT, FORTIM 


The purpose of this program is to calculate c for each calibration 
using a constant n^, of 80.2. An error statistic is also found 
which is the error in the least squares fit to the three energy 
points as a function of channel number. The reasons for cal- 
culating this error statistic are; 


1. To make sure the computer hasn't picked up a spurious peak 
(e.g. bit error) . 

2. To ascertain that the instrument has remained linear. 

The program first reads in the calibration cards generated by 
PASS-I. It then calculates; 

1. An Uq for each card. 

2. An average n^ for all the cards. 

3. C using an n^ of 80.2. 


4. The error statistic* 

The results of these calculations are stored in tables. A tape 
record is then written for each calibration and a report is 
printed of all input and calculated output values. 
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A. Unlabelled Coitiinon 


JYR 

• 

Integer full word variable containing the year at 
midpoint of accumulation. 

JMO 

* 

9 

Integer full word variable containing the month at 
midpoint of accumulation. 

JDA 

9 

Integer full word variable containing the day at 
midpoint of accumulation. 

JHR 

m 

Integer full word variable containing the hour at 
midpoint of accumulation. 

JMIN 

9 

9 

Integer full word variable containing the minutes 
at midpoint of accumulation. 

ISEC 

: 

Integer full word variable containing the seconds 
at midpoint of accumulation. 

CONST 

9 

9 

Floating point full word variable containing C. 

ZNZ 

• 

Floating point full word variable containing h^ . 

ERROR 

• 

Floating point full word variable containing the 
calculated error statistic. 


B. Variables and Arrays of Interest 


lYR (1000) 
IMO (1000) 
IDA (1000) 
IHR (1000) 
IMN (1000) 


Integer full word array containing the year at 
midpoint of accumulation read from the calibration 
cards . 

Integer full word array containing the month at 
midpoint of accumulation read from the calibration 
cards . 

Integer full word array containing the day at 
midpoint of accumulation read from the calibra- 
tion cards. 


Integer full word array containing the hour at 
midpoint of accumulation read from the calibra- 
tion cards. 


Integer full word array containing the minutes 
at midpoint of accumulation read from the 
calibration cards. 
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SEC (1000) : 

SNl (1000) : 

SN2 (1000) 

SN3 (1000) : 

ICTSl (1000) : 

ICTS2 (1000) : 

ICTS3 (1000) ; 
C (1000) : 

Z (1000) : 

ERR (1000) : 

MONTH (12) : 

LMONTH (12) ; 

El : 

E2 : 

E3 : 

SUM : 

IHOLD ■ ! 


Floating point full word array containing 
the seconds at midpoint of accumulation read 
from the calibration cards. 

Floating point full word array containing the 
integrated channel number of the first peak 
in the calibration spectrum. 

Floating point full word array containing the 
integrated channel number of the second peak 
in the calibration spectrum. 

Floating point full word array containing the 
integrated channel number of the third peak 
in the calibration spectrum. 

Integer full word array containing the total 
counts surrounding the first peak. 

Integer full word array containing the total 
counts surrounding the second peak. 

Integer full word array containing the total 
counts surrounding the third peak. 

Floating point full word array containing the 
calculated C for each calibration card read. 

Floating point full word array containing the 
calculated n^ for each calibration card read. 

Floating point full word array containing the 
error statistic for each calibration card read. 

Integer full word array containing the Julian 
day for the last day of each month of a normal 
year . 

Integer full word array containing the Julian 
day for the last day of each month of a leap 
year . 

Floating point full word constant containing the 
energy associated with the first peak. 

Floating point full word constant containing the 
energy associated with the second peak. 

Floating point full' word constant containing the 
energy associated with the third or sum peak. 

Floating point full word variable containing the 
total n^ for all calibrations. 

Integer full word variable containing the total 
number of calibration cards read. 
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ID 

• 

Integer full word variable containing the 
calibration card code (=200) . 

AVEZNZ 

• 

Floating point full word variable containing the 
average n^ for all cards read. 

JUL 

* 

Integer full word variable containing the calculated 
Julian day. 

IHRMN 

• 

Integer full word variable containing combined hours 
and minutes of day ( = HRS x 100 + minutes) . 

IRSLT 

- 

Integer full word variable containing the return 
code from a call to FPUT. 

IRUNDA 

m 

♦ 

Integer full word variable containing the run day 
after a call to FORTIM. 

IRUNT 

• 

Integer full word variable containing the run time 
after a call to FORTIM. 

LNECNT 

m 

Integer full word variable used as a line counter. 

% 

m 

• 

Floating point full word containing the n^ to be 
used in the calculation of C(80.2). 



VI, Subroutine FORTIM (IRUNDA, IRUNT) 


Program Language 
Date Written 
Programmer 
Installation 

Computer 
Dummy Arguments 


Subprograms Called 
Description 


Example 


IBM 0/S 360 Assembler Language 
July 1969 
A. Buck 

University of New Hampshire 
Space Science Center 

IBM-360-H50 

1) IRUNDA: output integer full word 
containing the date. 

2) IRUNT: output integer full word 
containing the time of day in 
hundredths of a second. 

None 

Subroutine FORTIM uses the time macro 
to fetch the date and the time from 
the computer clock. The date and the 
time are only as accurate as the cor- 
responding information entered by the 
operator . 

FORTIM is called at 2.37 seconds after 
3 minutes after 1 o'clock, A.M. on 
February 10, 1970. When control is 
returned from subroutine FORTIM, IRUNDA 
contains 70041 in binary form and IRUNT 
contains 3780237 in binary form. 
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VII.- Subroutine FPUT (IDSN,ICMD, IRSLT,IOVEC) 


Program Language 
Date Written 
Programmer 
Installation 

Computer 


: IBM 0/S 360 Assembler Language 

; February 4, 1971 
: A. Buck 

: University of New Hampshire 

Space Science Center 

; IBM-360-H50 


Dummy Arguments : 1) IDSN: a full word integer input 

parameter specifying the data set to 
which activity is directed. The inte- 
ger stored at IDSN must be greater than 
zero but less than 21. 

2) ICMD: a full word input integer vari- 
able containing a request type code which 
specifies the activity to be performed. 

a) ICMD = 1 implies that a logical 
record is to be written. 

b) ICMD = 2 implies the data set 
is to be ended. Once ended, the 
data set is unavailable to the 
calling program through the same 
data set number. 

3) IRSLT: a full word output integer 
variable in which subroutine FPUT can 
place a return code as follows 

a) IRSLT = -1 implies request was 
illegal for one of the reasons 
below: 


1. IDSN contained a value 
less than 1 or greater than 
20 . 

ii. ICMD contained a value 
less than 1 or greater than 

2 . 

iii. A write request was made 
to a data set that had been 
ended. 
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iv. An endfile request was 
made to a data set either 
before the first write request 
or after the data set had been 
ended . 

b) IRSLT ^ 0 implies request was 
executed normally. 

C) IRSLT = 1 implies an I/O error 
occurred while writing a block. 

The data set was ended. 

4) lOVEC: an input vector whose high 
Otder byte is the first byte to be written 
(when ICMD =1) in a logical record. 

The number of bytes written is specified 
by the LRECL subparameter on the DD state- 
ment describing the data set. 

Siibpro grams Called : None 

Description : Subroutine FPUT is a QSAM output sub- 

routine to write logical records from 
an area defined by the calling program. 
This routine is specifically designed 
to allow a Fortran program to create 
without format control an extensive 
data set to which the DCB subparameter 
' RECFM = FB' applies. For data sets 
to which 'RECFM = F' or RECFM = U 
applies, subroutine FTWRIT may be more 
easily used. 

Subroutine FPUT can manage as many as 
20 data sets in the same job step. As 
many as desired may be active simulta- 
neously. Once the endfile command 
has been issued to a data set, sub- 
routine FPUT will refuse to perform 
any further activity for that particular 
data set. The large number of data 
sets allows writing as many as 20 files 
to the same magnetic tape volume as a 
possible application. 

•DD Statements required. . . 

ii ^uboutine FPUT is called with IDSN=1 
(or 2 ,..., or 20) the user must supply 
a DD Statement having the DD name FPUTOl 
(or FPUT02, . . . , or FPUT20) . The DD State- 
ment must include the DCB subparameters 
'RECFM' , 'LRECL' , and 'BLKSIZE' but must 
omit ' DSORG ' and ' MACRF ' . 
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VIII. Description of Input (CALI) 


The Pass-I calibration cards have the following format; 


PH 

< 

w 


1 1 


2 2 2 2 


2 

3 

4 

5 515 


9 3 

T 2 


1 1 


1 8^ 

1 1 


7 717 7 7 7 7 
8888 


9 9 3 3 


5 6 7 t\9 
>bo4l€y 


o 

IS 

o 
u 
w 

0 0^1 


9 IMll n 13 14|l5 16 17 18 13 20pi 

1 11 


ns 


iJ 

w WWW 

g— 

Z<N gro grH 

pcj Ul ui O - 

D Po 0 0 0 0 oVo 0 0 0 iH 0 a 0 0 H 0 0 0 0 ojo o Vo o o o oJb (W o o o o 


3|9 9 9 
12 n 
beat 


ii)hi 1 


1 11 


1 nti 1 1 1 

2|22|2 2l2 2 2 2|2 2 2 2 2 2l2 2 2 2 2 2]2 2 2 2 2 

3|3 3|33|3 3|33l3 3 3 3|3 3 3 3 3 3|3 3 3 3 3 313 3 3 3 3 

414 4|4 4 4 4|44|4 4 4 4|4 4 4 4 4 
S|S 5 5 sis 5 5 3 S 5 5 5 5 5 S 

66M9 6|S6 6CB6S 9 6 6 6 6 6 9|6 6 6 «6 

7 7 7 7 7 7 7 7 7 7 7 7 717 1 7 7 7 


0 

27 71 24 75 26| 

11111 


II 29 31 31 3I| 

mill 


444444444444 


9|g 9 9 9 9 9 9 9 9 9 9 

[ '/ 19 19 20 2t 22 23 29 23 lill 20 29 30 31 33| 


|03 3< 33 K 32 3) 39 4WI 

1 1 1 1 1 m|i 


22222222 
33333333 
44444444 
5l5 5 5 5 5 515 5 5 5 5 515 5 55 555 


S|9 9 9 9 9 9 9 9 9 9 3 9 9 

pi M 3S 36 3> in W 


uy 

EH ^ 
<N 
tD 

o 


47 43 44 4S 46 47 46] 
11 11 11 


DOOOOOQdOOQOfiOHOSOOOO 

|49 50 51 5'J 53 54 55 5fi 5? 58 S! M 61 63 63 M 65 K 67 S» 6S W 11 72 73 74 15 7S 77| 

11 1 1 1 1 1 1 11 H 1 1 1 1 1 H 1 n 1 1 11 1 M 


888 8 88 3888 8888 888 8988 8 888888888 888988888888988888888888888888889899 


99999999 

40 41 47 43 44 45 46 47 46j 


to 

H --- 
;s to 

!3 ■ 

O 


6 66 668 6 6 666 6 666 6 6666666 6866666 8666 66 B66S 666666 6666 866 66 | 

7777777777777777777777777777777777777777777777777777777 


99939999 

[49 SO 51 52 53 54 55 


00 0 
n n » 
1 1 1 


22222222222222222222222222222222222222222 

33333333333333333333333333333333333333333 

44444444444444444444444444444444444444444 

55555555555555555555555555555555555555555 


999999999999999999399 

3957 06 $9 60 (1 62 61 M 65 Sb 67 66 65 70 71 72 73 74 T5 76 


9 9 9 9 

MOO >1 U 


YEAR 

MONTH 
DAY 
HOUR 
MINUTES 
SECONDS — 
CHANNEL (1) 
CHANNEL (2) 
CHANNEL (3) 
COUNTS (1) 
COUNTS ( 2 ) 
COUNTS (3) 
ID 


Midpoint scantime. 


Channel number of 1st peak channel 
Channel number of 2nd peak channel 
Channel number of 3rd peak channel 
Sum of counts around 1st peak channel 
Sura of counts around 2nd peak channel 
Sum of counts around 3rd peak channel 
= '200' for calibration cards 
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IX. Description of Output (CALI) 


CALI output tape format is as follows; 
(LRECL = 36, BLKSIZE = 1800) 


YEAR 

MONTH 

DAY 

► 

HOUR 

MINUTES 

SECONDS ’ 


Midpoint time 


Calculated for each input card 
in the following manner; 

Nj 

N2 t N2 t N3 

E,- El = 1.7323 

C = ? in- - n 

1 1 (nj_ Uq) ^ 1.33248 

E 3 = 2.525 

The no that is read in the first 

input card - for our applications 
80.2 is used. 



RU^4 DATE 


YbAK / DAY Qf YEAp< 73163 


HRS / HLN 1617 


SCA^ TlhE 
Ml J-POINT 

/I 347 12 

13 

121b 

2d 

C 

0.4723E-04 

AVE NO 
76.3 

INDIV NO 
84.0 

CHI 

77.3 

71 

347 

12 

13 

132q 

1 

0*4b55E-J4 

78.3 

64.1 

^9.0 

71 

347 

12 

13 

1350 

35 

0.4693t-04 

78,3 

77.3 

77.9 

71 

J47 

12 

13 

1456 

10 

0-4637E-04 

78.3 

76.2 

79.0 

71 

347 

12 

13 

1522 

44 

0.4699E-04 

70.3 

77.3 

77.9 

71 

347 

12 

13 

1633 

24 

Q.4617E-04 

78.3 

63.4 

79.7 

71 

J47 

12 

13 

1657 

58 

0.4695E-04 

70.3 

75.7 

70.0 

71 

347 

12 

13 

1805 

33 

0.4619E-Q4 

78-3 

6t>.5 

79-6 

71 

347 

12 

13 

1630 

7 

0*4685£-04 

70.3 

64.9 

77.9 

7i 

340 

12 

14 

1U4 

36 

0,4352E-04 

78.3 

60*4 

64.0 

71 

34B 

12 

14 

1139 

10 

0,440bE-04 

78.3 

63.0 

82.9 

71 

340 

12 

14 

1314 

24 

0.4449E-04 

78.3 

82.3 

82.1 

71 

348 

12 

14 

1421 

50 

0*4443E-04 

70. 3 

82.2 

82.2 

71 

3**8 

12 

14 

1446 

33 

0 • 4495E— 04 

78-3 

62.6 

81.8 

71 

348 

12 

14 

1554 

7 

0.4451E-04 

78.3 

82.3 

82-1 

71 

340 

12 

14 

1618 

42 

0-4510E-04 

78-3 

83.4 

81.0 

71 

34d 

12 

14 

1901 

30 

0.44d4E'*04 

70.3 

71.9 

81.8 

71 

348 

12 

14 

1926 

5 

0.4537E'04 

78.3 

72.9 

80.8 

71 

349 

12 

15 

903 

10 

0.4367E-04 

78.3 

69.7 

84.0 

71 

349 

12 

15 

1035 

20 

0.4366E-04 

78.3 

69.7 

84.0 

71 

349 

12 

15 

1235 

7 

0,‘*40iE-04 

70.3 

81.4 

B3.0 

71 

349 

12 

15 

1410 

21 

0.4444E-04 

70.3 

63.4 

62.7 

71 

349 

12 

15 

1517 

56 

0.4443E-04 

78-3 

83.7 

62.2 

71 

349 

12 

15 

1542 

30 

0.4475E-C4 

78.3 

73.3 

01.9 

71 

349 

12 

15 

1650 

5 

0*4446E-04 

78.3 

82.2 

82.2 

71 

349 

12 

15 

1714 

39 

0,4485L--04 

78.3 

73.5 

81.7 

71 

3 49 

12 

15 

1825 

10 

0.4478E-04 

78.3 

93.7 

81.3 

71 

3 49 

12 

15 

1849 

53 

0*4523E-04 

78.3 

74.2 

81.0 

71 

350 

12 

16 

851 

33 

0.4482E-04 

78.3 

71.9 

81. S 

71 

350 

12 

16 

959 

8 

0-4452E-04 

78-3 

82.3 

82.1 

71 

J50 

12 

16 

1158 

:>5 

0«4452E’-04 

70.3 

82.3 

82.1 

71 

350 

12 

16 

1331 

5 

0*4461c-04 

78.3 

82.5 

81.9 

71 

350 

12 

16 

1438 

40 

0«4470E-04 

78.3. 

73.2 

82.0 

71 

350 

12 

16 

1506 

18 

044520t-04 

78.3 

74.1 

81. 1 

71 

350 

12 

16 

1636 

27 

0*45ilE-04 

78.3 

63.4 

81.0 

71 

350 

12 

lo 

1746 

2 

O.44D4E-04 

78.3 

75.0 

81.7 

71 

350 

12 

16 

1813 

41 

0*45o5c-04 

78.3 

75.0 

60.2 

71 

351 

U 

17 

640 

7 

04 5082E-04 

70.3 

91.4 

71.4 

71 

351 

12 

17 

815 

21 

0*4o93E-04 

78.3 

75.7 

78.0 

71 

351 

12 

17 

1052 

1 

Q.4550E“04 

78.3 

85.7 

60.2 

71 

351 

12 

17 

122 7 

14 

0*4532E-04 

78.3 

72.8 

80.9 

71 

351 

12 

17 

1359 

23 

0.4554E-04 

78.3 

84.2 

80.2 

7i 

351 

12 

17 

1427 

2 

0.^562E“04 

70.3 

85.9 

80.0 

71 

351 

12 

17 

1534 

37 

0,4569E-04 

78.3 

73.5 

80.2 

71 

351 

12 

17 

1841 

13 

O«4307e-O4 

78.3 

60.7 

83.9 

71 

351 

12 

IT 

1908 

52 

0.444 7E^04 

70.3 

80.6 

82.2 

71 

3 52 

12 

18 

6J3 

9 

0.55UE-04 

78.3 

74.1 

65.9 

71 

352 

12 

18 

707 

40 

0.5006E-04 

70.3 

79.3 

72.9 

71 

352 

12 

13 

73 5 

18 

0.4933E-04 

78.3 

81.2 

74.0 

71 

352 

12 

18 

83^ 

49 

0.4762E-04 

78.3 

76.6 

76.9 

71 

352 

12 

18 

910 

32 

0,4743E-04 

70.3 

75.0 

77.2 

71 

352 

12 

18 

1015 

2 

O.4607E-O4 

76.3 

84.9 

77.9 

71 

352 

12 

18 

1042 

41 

0.46a7£-04 

78.3 

75.6 

78.1 

71 

352 

12 

18 

1217 

55 

0.4O71E-C4 

78.3 

86.3 

78.1 

71 

352 

12 

18 

1350 

4 

0.4672E-04 

78.3 

86.3 

76.1 


PEAK CHANMELS AND COUNTS 


CH2 

CH3 

CTSl 

87.9 

150.9 

1143 

00.4 

152.3 

965 

88.1 

152-0 

1153 

89.2 

152.5 

944 

88.1 

L5L.2 

1092 

89.1 

152.5 

366 

83-1 

151.9 

1127 

89.2 

153.0 

919 

80.6 

152.4 

1025 

94.8 

160.3 

939 

93.8 

159.2 

U33 

92.9 

158.9 

ilia 

93.0 

159.6 

824 

91.3 

157.1 

1191 

92.9 

158.1 

904 

91.8 

156.7 

U70 

91. 9 

156.6 

601 

90.9 

155.8 

1115 

94.1 

160.2 

944 

94.1 

160.9 

851 

93.8 

159.2 

1232 

92.3 

159.5 

1120 

93.1 

158.1 

625 

92.1 

157.9 

1172 

93.0 

157.5 

747 

91.9 

157.7 

1118 

92.8 

157.1 

712 

91.2 

156.7 

1161 

91.9 

157.9 

1132 

92.9 

157.2 

879 

92.9 

157.2 

1157 

92.7 

157.8 

1U9 

92.2 

157.9 

522 

91.3 

155.4 

1165 

91.8 

156.1 

1107 

92.0 

157.0 

609 

90.4 

156.8 

1114 

82.1 

142.9 

753 

88. 1 

152.7 

1117 

9Ul 

156.2 

738 

91.0 

155.3 

692 

91.0 

154.6 

467 

90.9 

155.8 

1156 

90.3 

155.7 

553 

93.4 

159.4 

603 

92.9 

158.9 

1084 

75.1 

133.2 

601 

82.9 

144.9 

967 

64.2 

145-9 

1091 

8/.0 

148.5 

896 

87.2 

151.0 

1015 

88.6 

L51.^ 

91B 

80.2 

152.9 

UOl 

88.9 

152.7 

980 

88.9 

152.2 

1165 


CTS2 

CTS3 

ERROR 

99 7 

100 

0.0023 

721 

75 

0.0096 

980 

76 

0.0336 

778 

72 

0.0061 

891 

101 

0.0038 

731 

57 

0.0134 

934 

110 

0.0030 

811 

82 

0.0092 

6 50 

88 

0.0047 

769 

91 

0.0031 

996 

103 

0.0015 

921 

106 

0.0074 

676 

67 

0.0U9 

883 

SS 

0.0099 

772 

73 

0.0014 

876 

76 

0.0029 

509 

44 

0.3001 

926 

110 

0.0041 

779 

74 

0.0056 

723 

75 

0.0076 

999 

83 

0*0008 

931 

103 

0.0146> 

548 

60 

0.0020' 

974 

87 

0.0060' 

604 

55 

0.0052 

902 

103 

0.0065 

584 

68 

0.0075 

966 

93 

0.0063 

939 

87 

0.0078 

725 

57 

0.0065 

905 

94 

0.0064; 

886 

96 

0.0015 

477 

52 

0.0052 

927 

76 

0.0072 

904 

99 

0.0031 

533 

54 

0.0029 

885 

102 

0.0157 

686 

62 

0.0067 

852 

90 

0.0086 

644 

57 

0.0076 

478 

60 

0.006 L 

428 

31 

0.0060 

802 

91 

0.0069 

423 

52 

0.0079 

491 

68 

0.0108 

974 

84 

0.0068 

694 

76 

0.0070 

717 

76 

0.0046 

879 

85 

0.0015 

760 

69 

0.0137 

849 

90 

0.0051 

680 

64 

0*0051 

827 

81 

0.0091 

871 

SO 

0.0048 

914 

82 

0.0034 


U) 

I 
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I. Introduction 

The objective of CAL2 is to provide the information that will 
allow us to gain correct as much of the gain variable real 
pulse height spectra as possible into the gain corrected, 
known and nonvariable pulse height spectra output from PASS-III. 
These gain-corrected spectra can then be directly compared 
over any time period in a search for gamma ray sources. 

To accomplish this, several bits of information are used. These 
are : 


A. Output of CALI - this provides known detector gain 
points at specific lines twice per orbit. 

B. Output of the VA Predict program - this provides the 
times and intensities of particular VA belt passages. 

C. Our acquired knowledge of typical detector operation 
during and after first turn on and specific intensity 
VA belt passage. 

A typical day's operation might be as follows? after an eight 
hour turn off during the most intense VA belt passages, the 
instrument's HV are turned on. The central detector's gain 
drifts downward for several hours after this while coming to 
equilibrium. Sometimes during these first few hours there are 
several relatively minor step gain changes caused by slight 
"clipping" of the VA belt edges. After several hours the gain 
becomes constant in time and usually remains so for a period 
of 8 to 12 hours. At this time, the gain becomes affected as 
the spacecraft begins to "clip" the VA belts again. This effect 
increases until the VA belt intensity becomes great enough to 
require the turning off of the central detector ' s HV. 

To handle these varying gain conditions, three quality in- 
dicators were developed. 

Quality 1 - best data, peak position of each successive 
RS calibration should differ by one channel or less, 
ho VA belt contamination. 

Quality 2 - intermediate quality data, peak position 
from each successive RS calibration can differ by up 
to 3 - 4 channels but must do so smoothly in time, only 
very minor VA belt contamination allowed. 

Quality 3 - all the rest of the data. 



Hence we have high confidence that Quality 1 data has been 
gain corrected accurately, moderate confidence in Q2 , and 
no confidence in Q3. 

The boundary times of turn on and turn off , telemetry interup 
tion, and quality changes are input values punched on epoch 
time cards. 

All of this information combined with the RS CAL data'from 
CALl forms the input to the computer operation portion of CAL2 
The output of this is an analytical function giving the gain 
of the central detector as a function of time. This in turn 
forms one of the inputs of PASS- I II so that all of the pulse 
height spectra can be gain corrected within the confidence 
levels specified by the quality indicator. 
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IV. JOB CONTROL LANGUAGE - CAL2 


// T548-12, , ,, ,,,55) S . CROTEAU ,CAL2 CLASS=F , T I ME=05 , REGI0N=1 20K 

//*LINECNT 62 

//STEPl EXEC FORTGLG 

//LKBD.SYSLIB DO DSN=USER , T3l 7 . SUBL I B, 01 SP= SHR 
DD DSN=USER.T548.SUBLIB,DISP=SHR 
// DO DSN=SYS1.F0RTLIB,DISP=SHR 

// DO DSN=USER.SSPLI B,DISP=SHR 

//LKED.SYSIN DD 

CAL2 OBJECT DECK 

/* 

//GO.FGETOl DD UNI T=2400 , D I SP= ( OL D, K E EP ) ,L ABEL = ( 1 , SL ) , 

// DSMAME = CAL1,DCB=(RECFM=FB,LRECL = 36,BLKSIZE=1800) , 

// V0LUME=SER=CC0922 

//GO.SYSUDUMP DO SYSOUT=A 
//GO.SYSIN DD * 

DELETIONS AND EPOCH TIME CARDS 

/ 

// 
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V. CAL2 (Main Program) 


Program Language 
Date Written 
Programmer 
Installation 
Computer 

Subprograms Called 


: Fortran IV, G-Level 
: J\ine 1972 
: S . Croteau 

: University of New Hampshire 
: IBM-360-H50 

: FORTIM, SOCENT , CALNDR, SIMQ, FGET 


This program reads in deletion cards, epoch time cards, and 
the output tape from CALI. The deletion cards contain the 
times of tape records to be ignored and a '1' in column 80. The 
epoch time cards contain the epoch times, the quality indicator, 
and a '2' in column 80. The quality indicator is a number 
from 1 to 3, 1 being good quality and 3 being poor quality. 

This indicator is carried over on the Pass-Ill tape to all 
spectra falling within the range of this epoch. The calibra- 
tion input tape records generated by CALI contain midpoint 
of accumulation time, C, and n, (80.2). The deletions must 
always precede the epoch cards , both being in chronological 
order. The epoch time cards and the tape records merge so 
that a certain nxamber of calibrations correspond to each epoch 
time. 

CAL2 fits a gain function to data of a given epoch, T, in the 
form: 

C(t) = q + r(t-T) + s(t-T)2 
Let N be the number of calibrations for one epoch. 


For N = 1 


For N = 2 


r = s = 0 
q = Cl 
s - 0 

ci= q + r(ti-T) 

C2= q + r(t2“T) 

r = ^2-Ci. 

t2-tl 

q = Cl - (C2 - Cl) 
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For N = 3 using linear least squares fit: 

A = ? (C-C . ) ^ with s = 0 
11 

iA = iA = 0 

9q 3r 

A = E (q + rAt. - c.)^ where At. = t. - T 
^11 11 

H - E(q + rstj - C.) - 0 

|A = E(qAt. + r(At.)2 - C.At. ) = 0' 

dJL X X XX 

3q + rEAt. = IC. 

qEt. + rE (At.)2 = ZC.At. 

^1 1 11 

For N ^ 4 using quadratic least squares; 

lA = iA = iA = 0 

9q 9r 9s 

N + rEAt. + sE(At.)^ = EC. 
q 1 ' l' 1 

qEAt. + rE(At.)2 + sE{At.)3 = ZC.At. 

1 1 11 

qE(Atj^)2 + rE (At^) 3 + SE(At^)‘‘ = EC^(At^)2 

Subroutine SIMQ is used to solve for q, r, and s. 

Calibration cards are punched containing the epoch time, q, r, 
s, n , the quality indicator, and an ID (300 or 301). A listing 
of tRe inputs and outputs is provided by the program. 

The following is a description of some parameters used in the 
program : 


A. Unlabelled Common 


JYR 

JMO 

JDA 


integer full word variable containing year at 
midpoint of accximulation read from input tape. 

integer full word variable containing month at 
midpoint of accumulation read from input tape. 

integer full word variable containing day at 
midpoint of accumulation read from input tape. 
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JHR : integer full word variable containing hour at 

midpoint of accumulation read from input tape. 

JMN : integer full word variable containing minutes 

at midpoint of accumulation read from input 
tape . 

ISEC : integer full word variable containing seconds 

at midpoint of accumulation read from input 
tape. 

C ; floating point full word variable containing the 

value of C for this calibration. 

AVENO ; floating point full word variable containing the 

average n^ for this calibration (80.2). 

ERR ; floating point full word variable containing the 

error statistic calculated in CALl for this 
calibration. 


B. Variables and Arrays of Interest 


A(9) 

B(3) 

CONST (1000) 
CTI 

ERROR (1000) 
FRACTN 

IDl 


: floating point full word array containing the 
coefficients stored column wise used as an 
argument to SIMQ. 

; floating point full word array containing the 
original constants used in the call to SIMQ. 
These are replaced by final solution values. 

; floating point full word array containing the 
C value of the calibrations to be processed 
for an epoch time. 

: floating point full word variable containing the 
solution to the equation 

CTI = (C - (q + r(tj^ - T) + s(t^ - T)2 ))/c 

: floating point full word array containing the 
error statistic for the calibration records to 
be processed for a certain epoch. 

: floating point full word variable containing the 
solution to 



: integer full word variable containing card code 
•300'. 
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ID2 : integer full word variable containing card code 

'301'. 

IDELT : integer full word variable used as a subscript 

in the processing of deletions. 

IjEND ; integer full word variable set to 1 to indicate 

the last epoch time card has been read. 

lERROR : integer full word variable set to 1 to indicate 

that a calibration has been read which has no 
corresponding epoch time card. 

IQLTY(2) : integer full word array containing the quality 

indicator for the two epoch times being compared 
with the calibration times on the input tape. 

IQUAL{500) : integer full word array containing the quality 

indicator to be punched in the calibration cards. 

IRSLT : integer full word variable containing the return 

code from the call to FGET. 

IRUNDA : integer full word variable used as an argument 

in the call to FORTIM; contains the run day. 

IRUNT : integer full word variable used as an argument 

in the FORTIM; contains the run time. 

JEND : integer full word variable set to 1 to indicate 

the last tape record has been read. 

KS ; integer full word variable used as an output 

argument of SIMQ. 0 -j- normal operation 
1 -»• singular set of equations . 

KTIME : integer full word variable containing hours 

* 100 + minutes. 

NEQU : integer full word variable used to contain the 

number of equations to be solved by SIMQ (input 
argument) . 

QDEL : logical 8-bit indicator set to .TRUE, when a 

tape record is to be ignored . 

Q(500) : floating point full word array containing the 

values of q to be punched. 

R(500) ; floating point full word array containing the 

values of r to be punched. 

; floating point full word array containing the 
values of s to be punched. 


S(500) 



4-10 


T1 

T2 

T3 

UDEL(500) 

UEPOCH(2) 

UMID (1000) 

UTIME 

UT (500) 

ZNZ (1000) 

ZNZERO(500) 


: floating point full word variable containing 
the solution to t^ - T. 

: floating point full word variable containing the 
solution to t 2 - T, 

; floating point full word variable containing the 
solution to t^ - T. 

: double word floating point array containing the 
deletion times in seconds of century. 

; double word floating point array containing the 
two epoch times (in seconds of century) that 
are being compared with the calibration tape. 

: double word floating point array containing the 
time in seconds of century of calibration records 
processed for an epoch. 

: double word floating point variable containing 
the time in seconds of century of the tape re- 
cord currently being processed. 

: double word floating point array containing the 
epoch times in seconds of century of the cali- 
bration cards to be punched. 

; floating point full word array containing the 
n^ read from the calibration records to be pro- 
cessed for a certain epoch time. 

: floating point full word array containing the 
average n^^ to be punched. 
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VI. Subroutine 

Program Language 
Date Written 
Programmer 
Installation 

Computer 
Dummy Arguments 


Subprograms Called 
Description 


CALNDR (USOC , lYR, IMO , IDA , IHR , IMN , SEC ) 


; Fortran IV, G-Level 
: February 1972 

; S. Croteau 

: University of New Hampshire 

Space Science Center 

: IBM-360-H50 


: 1) USOC: double precision input floating 

point variable containing seconds of 
century. 

2) lYR: output integer full word con- 
taining year. 

3) IMO: output integer full word con- 
taining month. 

4) IDA; output integer full word con- 
taining day . 


5) IHR: output integer full word con- 
taining hour. 


6) IMN: output integer full word con- 
taining minutes. 


7) SEC: output floating point full word 
containing seconds. 


: None 

: This subroutine accepts seconds of cen- 

tury as input via the argument list and 
converts this time to calendar time — 
year, month, day, hours, minutes, and 
seconds. The input value in seconds of 
century is a 64-bit floating point word. 
The output variables are 3 2 -bit integers 
except for the seconds which are stored 
in a 32-bit floating point word. 
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VII. Subroutine FGET (IDSN, IRSLT , lOVEC) 


Program Language 
Date Written 
Programmer 
Installation 

Computer 
Dummy Arguments 


IBM 0/S 360 Assembler Language 
February 4, 1971 
A . Buck 

University of New Hampshire 
Space Science Center 

IBM-360-H50 

1) IDSN: a full word input integer con- 
taining the data set number to which 
the call is directed. (IDSN must be 

1 , 2 , or 3) . 

2) IRSLT; a full word output integer 
in which subroutine FGET may place an 
activity-result code as follows... 

a) IRSLT = -1 if the requested 
activity was invalid. This code 
is returned if either of the fol- 
lowing occur: 

i. IDSN contains a number 
less than 1 or greater than * 

3. 

ii. Data set has been pre- 
viously closed. 

b) IRSLT = 0 if data is read and 
no I/O error is detected. 

c) IRSLT = 1 if an I/O error occurred 
on the block containing the data 
placed in lOVEC. The calling pro- 
gram has the responsibility for 
accepting or rejecting the data. 

In addition, the calling program 
is responsible for proper reaction 
to the remaining records in the 
block for which IRSLT will be 0. 
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Subprograms 

Description 


d) IRSLT = 2 if end-of-file was 
detected. The contents of lOVEC 
are not changed. The data set 
is closed and can not be used again 
by subroutine FGET with the same 
value of IDSN . 

3) lOVEC ; an output vector in which 
FGET can place the record. The actual 
variable used for lOVEC may be integer, 
real, logical, or complex. The first 
leftmost byte of the data record is 
placed in the high-order byte of lOVEC 
when reading occurs. The number of 
bytes placed in lOVEC is specified by 
the LRECL subparameter of the DD State- 
ment . 

Called : None 

: This subroutine is a QSAM input subroutine 

to read logical records into an area de- 
fined by the calling program. This 
routine is specifically designed to 
supply a Fortran calling program with 
logical records from a data set to which 
the DCB subparameter 'RECFM = FB' applies. 
For data sets to which 'RECFM = F ' or 
'RECFM = U' applies, subroutine FTREAD 
may be more easily used. "RECFM = V is 
specifically prohibited. 

Subroutine FGET can manage as many as 
3 data sets during the same job step. 

The data sets may be open (active) 
simultaneously provided no two data sets 
are on the same magnetic tape. 

DD Statements required... 

If FGET is to be called with IDSN = 1 
(or 2 or 3) , then the user must describe 
the data set by a DD Statement ..having the 
DD name FGETOl (or FGET02 or FGET03) . 

The DD Statement must include the DCB 
subparameters 'RECFM', 'LRECL', and 
'BLKSIZE' but must omit 'DSORG' or'IiACRF'. 
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VIII. Subroutine FORTIM (IRUNDA, IRUNT) 


Program Language 
Date Written 
Programmer 
Installation 

Computer 
Dummy Arguments 


Subprograms Called 
Description 


Example 


IBM 0/S 360 Assembler Language 
July, 1969 
A. Buck 

University of New Hampshire 
Space Science Center 

IBM-360-H50 

1) IRUNDA: output integer full word 
containing the date. 

2) IRUNT: output integer full word 
containing the time of day in hundredths 
of a second. 

None 

Subroutine FORTIM uses the time macro 
to fetch the date and the time from 
the computer clock. The date and the 
time are only as accurate as the cor- 
responding information entered by the 
operator. 

FORTIM is called at 2.37 seconds after 
3 minutes after 1 o'clock A.M. on 
February 10, 1970. When control is 
returned from subroutine FORTIM, IRUNDA 
contains 70041 in binary form and IRUNT 
contains 3780237 in binary form. 



IX. Subroutine SIMQ (A,B,N,KS) 


Program Language 
Date Written 
Programmer 
Installation 

Computer 
Dummy Arguments 


Purpose 

Subprograms Called 
Description 


Fortran IV, G-Level 


University of New Hampshire 
Space Science Center 

IBM-360-H50 

(A,B,N,KS) 

A Matrix of coefficients stored 

columnwise. These are destroyed 
in the computation. The size of 
matrix A is N by N. 

B Vector of original constants 

(length N) . These are replaced 
by final solution values, vector X. 

N Number of equations and variables. 

N must be .GT. 1. 

KS Output digit 

0 for a normal solution 

1 for a singular set of equations 

Obtain solution of a set of simultaneous 
linear equations, AX = B. 

None 

This subroutine is found on page 178 of 
System/360 Scientific Subroutine Package 
published by IBM. The following is the 
description of the program found on that 
page. 

Matrix A must be general. 

If matrix is singular, solution values all 
meaningless. An alternative solution may 
be obtained by using matrix inversion 
(MINV) and matrix product (GMPRD) . 
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Method of solution is by elimination using 
largest pivotal divisor. Each stage of 
elimination consists of interchanging rows 
when necessary to avoid division by zero 
or small elements. 

The forward solution to obtain variable N 
is done in N stages. The back solution 
for the other variable is calculated by 
successive substitutions . Final solution 
values are developed in vector B, with 
variable 1 in B(l), variable 2 in 
B(2),....., variable N in B(N) . If no 
pivot can be found exceeding a tolerance 
of 0.0, the matrix is considered singular 
and KS is set to 1. This tolerance can 
be modified by replacing the first 
statement . 
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X. Subroutine SOCENT (lYR, IMO, IDA,IHR, IMN ,SEC,USOC) 


Program Language 
Date Written 
Programmer 
Installation 


; Fortran IV, G-Level 
: February, 1972, 

: S . Croteau 

: University of New Hampshire 


Computer 

: IBM-360 

-H50 

Dummy Arguments 

: 1) 

lYR; 

input integer fullword containing 
year (2 digits) . 


2) 

IMO; 

input integer fullword containing 
month. 


3) 

IDA: 

input integer fullword containing 
day. 


4) 

IHR: 

input integer fullword containing 
hour . 


5) 

IMN: 

input integer fullword containing 
minutes. 


6) 

SEC: 

input floating point variable con- 
taining seconds. 


7) 

USOC 

: doubleword floating point output 
variable containing seconds of 


century . 


Subprograms Called : None 
Description 


; This subroutine converts calendar time 
to seconds of century. 



4-18 


XI. Description of Input (CAL2) 


A. Deletion 
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5 8 
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3 11) 
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S 1C17 18 H 2C 21 22 23 J!-! » :i0 31 32 33 34 35 3S 37 38 38 40 41 42 43 « 43 41 48 49 50 51 52 51 34 55 5€ 57 58 59 C8 M M 63 64 65 €t 5? 69 69 70 11 72 73 14 75 76 77 78 75 tt 

I n 1 n 11 1 1 1 1 1111111111111111111 1 111111111 1111111111111111111111111 


9 g s 9 

1 12 13 14 
235!f> 


2P 2 2 2 2 2 ? 2 2 2 2 2 2 2 2 2 
3 3 3 3 n 3 3 3 3 3 n 3 
14 4444444444444 
55555555555555 

6 8 8 g|b 6 6 6 8 6 6 6 6 6 

7 7 7 7 17 7 7 7 7 7 7 7 7 7 


UNIVERSITY OF NEW HAMPSHIRE 



COMPUTATION CENTER 


,2 22222222222222222222222 
333333333333333333333333 
444444444444444444444444 
555555555555555555555555 
86a66S8G666866866B668G6e 
777777777777777777777777 


83999999999989399999999999939999939999^99939999999899999099398999 

15 16 17 la 18 22 21 22 2* tt 46 2' 26 28 'Q 31 37 33 3 -i 15 33 *1 42 43 44 45 4 f Ai 43 43 50 Ji 52 55 IjS 5-' 5$ F9 K> 51 5,2 CJ 54 £3 Ci 57 H 69 70 Jl 72 70 ?« IS 16 71 li ;j 


YEAR 

MON 

DA 

HR 

MIN 

SEC 


Year of deletion 
Month of deletion 
Day of deletion 
Hour of deletion 
Minute of deletion 
Second of deletion 


ID 


for deletion 
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EPOCH time card 


C 

w 
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COMPUTATION CENTER 
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19 22 ?i 22 7.3 2* LO V it 29 ?0 Ji 2'i 54 !15 36 :H 'A lO 4I 42 43 44 45 V <1 <640 50 51 12 53 55 56 57 58 53 61 62 CJ M 65 C6 67 66 69 70 7i 72 73 14 75 16 71 76 79j''- 




YEAR 

MON 

DA 

HR 

MIN 

SEC 

QUAL 


ID 


Year of epoch time 

Month of epoch time 

Day of epoch time 

Hour of epoch time 

Minute of epoch time 

Second of epoch time 

Quality indicator 

' 1 ' = Good 
'2' = Fair 
'3' = Poor 

= ' 2 ’ for epoch time card 
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XII. Description of Output (CAL2) 
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YR 

MO 

DA 

HR 

MIN 

SEC 

QUAL 


q 

r 



s 


Year of epoch time 
Month of epoch time 
bay of epoch time 
Hour of epoch time 
Minute of epoch time 
Second of epoch time 


Quality indicator 

•1' = Good 
'2' = Fair 
' 3 * = Poor 


This is the value 
This is the value 
Average (80.2) 


of Cq 

. dC 

jt 


This is a second derivative. 

It is not equal to zero only if 
there are more than three cali- 
brations for the same epoch time; 
it is calculated using three 
equations . 


= '300' for calibration card 
type 1 

= '301' for calibration card 
type 2 


ID 



RUN OAT£ 


YEAR 

SCAN TIME 

HlD-PCilNT JF ACCUM. 


71 12 d U 5i 37.0 0 

71 12 0 12 24 2U.0 J 

71 12 S 13 25 4<j.O 0 

71 12 a IJ 56 30.0 0 

71 12 8 14 57 56.0 0 

71 12 d 15 31 43.0 G 
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71 12 9 2i 4 B.O 0. 
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Pass-III 


I . Introduction 


Pass-III reads in as input a control card. Van Allen cards, 
good time cards, calibration cards, and the Experimenter data 
tape. 

The control card contains the parameters needed for the initial 
call to FEEDER. 

The Van Allen cards contain the Van Allen data accumulated in 
the previous Pass-III production run in the form of calendar 
time, peak flux, and integrated flux. Each time a new file 
of data is read, the Van Allen data values are calculated from 
the orbit data records found at the beginning of the file. If 
no Van Allen cards are entered, the program initializes the 
Van Allen data array to zeroes and begins accumulating VA data 
from the first file read on tape 1 of the current run. 

The good time cards (generated by Pass-I) contain the beginning 
and end times of good complete scans of data (solar or back- 
ground or both) . This is data in which the sync word was 
present, in which there was no missing data (no time gaps) , 
and which was accumulated when the central detector was on. 

The calibration cards (generated by CAL2) contain the epoch 
time, data quality indicator, and q,r,s, and n^ used to gain 
correct the spectra. 

Pass-III stores the values from each of these cards in arrays. 

The calendar times are converted to seconds of century. The 
first good time is then read and the Experimenter tape is 
searched until the corresponding time to the nearest second is 
found. Processing begins at background or solar quadrant 
depending on what is specified in the good time card (BO or SO) . 
Pass-III processes six major frames at a time (equivalent to 
one solar quadrant or one background quadrant) until the first 
end time is reached. Processing stops at background or solar 
depending on what is requested in the good time card (BK or BO) . 
Pass-III then reads the next begin time and continues processing 
in the same manner as just described until the last end time is 
reached. 

For each quadrant accepted as good data, orbit and attitudinal 
parameters are calculated and the gamma spectrum is gain shifted. 
The status word is realigned v/ith the data spectrum and inter- 
preted. Various flags are set to indicate the condition of the 
data processed, e.g; the presence of bit errors, dead time fold 
over, I/O errors, etc. 
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The output of Pass-III is a tape containing the parameters, 
calculated angles, gain-shifted spectrum, interpreted status, 
and flags for each half-scan or six major frames processed. 

This tape has a record length and block size of 3540 bytes. 

A short listing is produced by Pass-III consisting of the first 
good time and last end time, tape volume serial numbers of 
tapes read, Decomm run numbers for each tape, the run date, 
and various warnings when unusual problems occur. 


I 
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II MACRO SYSTEMS FLOWCHART 
PASS - III 
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III. JOB STREAM SCHE>tATJC 
PASS-III 
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IV. JOB CONTROL LANGUAGE - PASS-III 


// 

//STEPl EXEC 
//STEPLIB DD 

no 


//DECOMl 
// 

// 

//DECOM2 
// 

// 

//DECOM3 
// 

// 

//DECDM4 
// 

// 

//DECOM5 
// 

// 

//DECOM6 
// 

// 

//DECOM7 
// 

// 

//DECOM8 
// 

// 

//DEC0M9 
// 

// 

//OECOMIO 
// 

// 

//DECOMll 
// 

// 

//DECOML2 
// 

// 

//FPUTOl 
// 

// 

//FT06F001 
//MSGDD DO 


T 548-13, , 10) , ' S. CROTEAU, PASS-I II ' ,CL ASS=F , T I ME = 1 5 , REG 1 0N= 160K 
PGM=OSOP301A,TIME=15 
DSN=USER.T548.SUBLIB,DISP=SHR 
UNIT=TAPE7,DISP=0LD,LABEL=<11,NL, ,IN) , 

DCR=( BLKSIZE=1000,0EN=1,TRTCH=C), 

V0LUME=SER=EXD329 

UNIT=AFF=DEC0M1,DISP=0LD,LABEL=( 1,NL, , IN) , 
DCB=(BLKSIZE=1000,DEN=1,TRTCH=C) , 

VOLUME=SER=EX0307 

UNIT=AFF=DEC0«1,0I SP=OLD,LABEL= ( 1,NL , , IN ) , 

DCB=( BLKSIZE=1000,DEN=1,TRTCH=C), 

V0LUME=SER=EXD308 

UNIT=AFF=DEC0M1,0ISP=0L0,LABEL=( 1,NL, ,IN> , 
DCB=(BLKSIZE=1000,DEN=1,TRTCH=C) , 

V0LUME=SER=EXD346 

UNIT=AFF=DECOMl,DISP“OLO,LABEL=( 1,NL, , IN) , 

DCB=( BLKSIZE=1000,D6N=1 ,TRTCH=C), 

V0LUME=SER=EXD347 

UNIT=AFF = DEC0M1,D1SP=0LD,LABEL = ( 1-,NL, , IN) , 
DCB=(BLKSIZE=1000,DEN=l,TRTCH=C) , 

V0LUME=SER=EXD329 

UNI T=AFF=DEC0M 1,01 SP=0L0,LABEL= ( 1,NL , , IN) , 

DCB=( BLKSIZE=1000,DEN=1,TRTCH=C) , 

V0LUME=SER=EXD295 

UNIT=AFF=DEC0M1,0ISP=0LD,LABEL=( 1,NL,,IN) , 

OCB=( BLKSIZE=1000,0EN=1,TRTCH=C) , 

V0LUME=SER=EXD306 

UNIT=AFF=0EC0M1 ,DI SP=0LD,LABEL=( 1 ,NL , , IN) , 

DCB= ( BLKSIZE=1000,OEN=1,TRTCH=C), 

V0LUME=SER=EXD283 

UNIT=AFF=DECOMl,OlSP=OLD,LABEL=( 1,NL, , IN) , 

OCB=( BLKSIZE=1000,DEN=1,TRTCH=C) , 

V0LUME=SER=EX0295 

UNIT=AFF=0EC0M1,0ISP=0L0,LABEL=( 1,NL, ,IN) , 
DCB=(BLKSIZE=1000,TRTCH=C) , 

V0LIME=SER=EXD296 

UNIT = AFF = DEC0M1 ,01 SP=OLD, LABEL = ( 1,NL , , IN) , 
DCB=(BLKSIZE=1000,TRTCH=C )♦ 

V0LIME=SER=EXD297 

UNIT=2400,DISP=(N£W,KEEP),LABEL={ 1,SL), 

DSNAME = PASSI 1 1 ,0CB=(RECFM=F,LRECL = 3540,BLKSIZE = 3540) , 
V0LUME=SER=PRM057 

no SYSOUT=A,DCB=(RECFM=UA, BLKSIZE=133 ) 

SYSOUT=A 


DD 


DD 


DD 


DD 


DD 


DD 


DD 


DD 


DD 


DD 


DD 


DD 


//SYSUDUMP 

//FT07F001 

//FT05F001 

11111 


DD SYSOUT=A 

DD SYSOUT=B,DCB=(RECFM=F,BLKSIZE=80) 
DD « 

1 1 10 15 


GOOD TIME CARDS, CALIBRATION CARDS, VAN ALLEN CARDS 


/* 

// 



5-6 


V. Pass-III Main Program (OSOP301A) 


Program Language 
Date Written 
Programmer 
Installation 
Computer 


Fortran IV, G-Level 
April 1972 
S. Croteau 

University of Mew Hampshire 
IBM-360-H50 


Subprograms Called 


INTPRM, SOCENT, HPARM, FEEDER, 
CALNDR, FARM, FORTIM, GAINB, FPUT 


This program prepares an area in common storage containing all 

the necessary parameters for one tape record. The following 

operations are performed by the program in the preparation of 

the parameter tape record: 

A. Reads in the data cards (good time cards, calibration cards. 
Van Allen cards) and stores the data values in, arrays, 

B. Reads in the Experimenter data tape using subprogram FEEDER. 

C. Converts the data times from read-out time to accumulation 
time in seconds of century. 

D. Matches good times with data and begins processing at 
proper scan (background or solar) . 

E. Call HPARM at the start of each file read to fetch 

Van Allen parameters (time, peak flux, and integrated flux). 
The program stores these values in arrays. The first 14 
values should always have times less than the data time 
being processed. The fifteenth should always be later. 

F. Realigns the status so that it corresponds to the main 
frame data. In order to do this the program saves the 
status and the interpreted status bits from FEEDER and 
uses them with the main frame data read out three minutes 
later. 

G. Calls PARM for each three-minute scan to calculate orbit 
and attitudinal parameters. 

H. Calculates the Julian date. 
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I. Calculates the satellite-earth-sun' angle and the horizon 
angle in the following way; 


Satellite-earth-sun angle = (Satellite RA)-(Sun RA) 
(where RA right ascension) 


Horizon angle = tan” 


1 / radius earth > <, 180 
^radius earth+alt^ tt 


J. Calculates the total x-ray counts in channel 1 from the 
interpreted digital subcom source values. 

K. Calls FORTIM to fetch run date. 

L. Checks the major frames for I/O errors and sets a flag. 

M. Calls GAINB to gain correct the spectrum. 

K. Counts the number of flagged MF data words in a spectrum 
and stores the value. 

O. Checks the spectrum for bit errors and sets a flag. 

P. Calculates the live time and dead time. 

Q. Determines the existence of dead time fold over, adjusts 
the dead time if fold over exists, and sets a flag. 

R. Computes rates surrounding leakage peaks for each 

spectrxim 


Ch. 151-155 + Ch. 161-165 
Ch. 144-148 + ch. ISS-T?? 

S. Calculates the average rate (Co®®) which should be an 
average of all continuous spectra, background or solar, 
between calibrations . 

T. Calls FPUT to write a record. 

U. Reads the next good time card. 

V. Compares the data time to the next calibration time. If • 
the data time is greater, the program uses this calibration 
to make the gain correction. 

W. At end of job, the program punches the first 14 positions 
of the Van Allen data tables. These v/ill be used as input 
into the next Pass-Ill run. 
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The following is a description of common storage and of the 
variables and arrays that are of major interest within the 
program. All variable names beginning with a U are double 
precision, those beginning with an H are integer half-words, 
and those beginning with a Q are logical bytes (8 bits) . 

A. COMMON/ HEADER/ 

COMMON/ORBIT/ 

COMMON/ DEC IDE/ These areas are described in Section 1 

COMMON/SCANS/ of this report. 

COMMON/ I NTRUP/ 

B. COMMON/PARMLS/ This area is filled by each call to FARM. 

UVATIM(4) : double precision floating point array containing 

the times of peak flux encountered. 

PC ; floating point full word variable containing 

rigidity. 

GLON : floating point full word variable containing 

longitude . 

GLAT : floating point full word variable containing 

latitude. 

alt : floating point full word variable containing 

altitude. 

SQRA : floating point full word variable containing sun 

quadrant right ascension. 

SQDEC : floating point full word variable containing sun 

quadrant declination. 

BQRA : floating point full word variable containing 

background quadrant right ascension. 

BQDEC : floating point full word variable containing 

background quadrant declination. 

SPNRA : floating point full word variable containing 

spin right ascension. 

SPNDEC : floating point full word variable containing 

spin declination. 

; floating point full word variable containing 
theta sun quadrant. 


SQTHE 
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SQPHI 

BQTHE 

BQPHI 

SPNTHE 

SPNPHI 

SATRA 

SATDEC 

ALAT 

VAPEAK(4) 

VAFLUX(4) 

IDTAPE 

IDPILE 

NORB 

NVAPAS 

NVAPRN 

BGAU 

ERMCL 


; floating point full word variable containing 
phi sun quadrant. 

: floating point full word variable containing 
theta background quadrant. 

: floating point full word variable containing 
phi background quadrant. 

: floating point full word variable containing 
theta spin axis. 

; floating point full word variable containing 
phi spin axis. 

: floating point full word variable containing 
satellite right ascension. 

: floating point full word variable containing 
satellite declination. 

: floating point full word variable used by 
another program calling PARM. 

: floating point full word array containing the 
peak flux. 

: floating point full word array containing the 
integrated flux, 

: integer full word variable set aside to contain 
tape identification. 

; integer full word variable set aside to contain 
file identification. 

: integer full word variable used by another 
program calling PARM. 

: integer full word variable containing the 
number of peak fluxes encountered. 

; integer full word variable used by another 
program calling PARM. 

; floating point full word variable containing the 
magnetic field strength B (Gauss) , 

: floating point full word variable containing the 
Mclllwain L parameter. 

; floating point full word variable containing the 
sun right ascension. 


SUNRA 
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SUNDEC : floating point full word variable containing the 

sun declination. 

QVUPDT : logical 8-bit flag which remained unused. 

QVSTRT : logical 8-bit flag which remained unused. 

QATT : logical 8-bit indicator set to .TRUE, if no 

attitude data available. 

QORB : logical 8-bit flag set to .TRUE, to indicate no 

orbit data available. 

QPM : logical 8 -bit flag set to .TRUE, if it was not 

possible to calculate sun RA or sun DEC. 

QXTRA(3) : logical 8 -bit flags used as filler. 


C. COMMON/RECORD/ See Part XXIII of this "Description of 

Output . " 


D. COMMON/GAINLS/ The parameters in this storage area are 

input values into subroutine GAINB. 

CVAL : floating point full word variable containing the 

value of q + r (t-T) + s (t-T)^. 

SK : floating point full word variable containing the 

standard C of .00005 (or 5x10“**). 

NNAUGT : floating point full word variable containing n^ . 

CHCTS(377) : floating point full word array containing the 

raw data spectrum prior to gain correction. 


E. Variables and Arrays of Interest (not in common) . 

AMXFLX(30) ; floating point full word array containing the 

most recent entries of Van Allen peak flux. 

BKLR : floating point full word variable containing the 

sum of the lower range background X-ray interpreted 
values . 

BKQDT : floating point full word variable containing the 

sum of background quadrant time, 

: floating point full word array of background Co®° 
rates to be summed. 


BRATES (5) 
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BRATEl ; floating point full word variable used as a hold 

area for background X— ray rate Cbackground 
quadrant) . 

BRATE2 : floating point full word variable used as a hold 

area for solar X-ray rate (background quadrant) . 

CNSTNT ; floating point full word variable into vrfiich q 

or peak flux are read from the input cards. 

CONST (200) : floating point full word array into which are 

stored all values of q from the calibration cards. 

DERIV1(200) : floating point full word array into which are 

stored all values of r from the calibration cards. 

DERIV2(200) : floating point full word array into which are 

stored all values of s from the calibration cards. 

DERVT : floating point full word variable into which r or 

s or the integrated flux are read from input cards. 

HBNUM ; half-word integer variable containing the number 

of background entries in BRATES. 

HBl ; half-word integer variable used for storing a 

background status word. 

HDAYHD ; half-word integer variable holding day-night 

status : 

1 •> day 

2 night 

HFILE ; half-word integer variable containing the file 

count of the current file. 

HQUAL(200) : half-word integer array into which are stored all 
quality indicators from the calibration cards. 

HSNUM : half-word integer variable containing the number 

of solar entries in SRATES. 

HSl : half-word integer variable used to store a solar 

status word. 

lASOP : integer full word variable specifying the analog 

subcom data option desired; 

0 omission of analog subcom data 

1 -*■ analog subcom data to be processed 

: integer full word variable specifying the attitude 
data option desired; 

0 ^ omission of attitude data 

1 attitude data to be processed 


lATTOP 
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IBEG 


ICAL 

ICHG 


IDS OP 


IDl 


lEND 


IFl 

IP2 

IF3 

IGOOD 


lORBOP 


IREC 

IRSLT 
IRUNDA 
I RUNT 

ISBCAL 
ISBGDT 
I SCANT 


double word floating point variable containing 
the begin time Cin seconds of century) being 
dealt with. 

integer full word variable containing the total 
number of calibration entries. 

integer full word variable used in the determina- 
tion of the presence of absence of a bit error 
in the spectriam. 

integer full word variable .specifying the digital 
subcom data option desired: 

0 ^ omission of digital subcom data 

1 digital subcom data to be processed 

integer full word variable into which the card 
code is read. 

double word floating point variable containing 
the end time (in seconds of century) being dealt 
with. 

integer full word variables used in the determina- 
tion of the presence or absence of bit errors in 
the gamma spectrum; IFl = 1; IF2 = 10; IF3 =15. 

integer full word variable containing the total 
number of good time cards read. 

integer full word variable specifying the orbit 
data option desired; 

0 no orbit data 

1 regular orbit data items desired 

2 ^ all orbit data items desired 

integer full word variable containing the number 
of output records written. 

see Part XI of this section, 
see Part X os this section, 
see Part X of this section. 

integer full word variable used as an index to 
calibration arrays. 

integer full word variable used as an index to 
the good time card arrays . 

double word floating point variable containing the 
time of the current scan in seconds of century. 
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IS0BK(3) 

ITYPEl (200) 
ITYPE2 (200) 
ITYPl 

ITYP2 

LMONTH(12) 

MFDOP 

MONTH (12) 

NTAPES 

QB(IO) 

QMESS 

QS(IO) 

QSEEK 

QSOLAR 


; integer full word array containing alphameric 
representations of background (BK ) , solar (SO ) , 
and both (BO) . 

; integer full word array containing the scan type 
corresponding to begin time. 

: integer full word array containing the scan type 
corresponding to the end time. 

; integer full word variable containing BO or SO 
to indicate whether the begin time starts with 
both quadrants or solar only. 

: integer full word variable containing BK or BO 
to indicate whether the end time ends with both 
scans or background only. 

; integer full word array containing the Julian 
day of the last day of each month of a leap-year. 

; integer full word variable specifying the main 
frame data option desired; 

0 -»• no main frame data to be processed 

1 -► all main frame data to be processed 

2 PHA channel counts to be ignored 

; integer full word array containing the Julian 
day of the last day of each month of a regular 
year . 

: integer full word variable containing the number 
of tapes to be read. 

; logical array holding the interpreted status bits 
for a background spectrum. 

: logical 8 -bit flag controlling a message printed 
at abnormal run termination by the program. 

: logical array holding the interpreted status bits 
for a solar spectrum. 

: logical 8 -bit flag set to .TRUE, if no status 
word has been saved. 

; logical 8 -bit flag set to .TRUE, when FARM has 
to be called while processing a solar scan 
(usually FARM is called only when processing a 
background scan) . 

: logical array used as an intermediate area in the 
transfer of data from QS or QB to QPSTAT or vice 
versa. 


QX(IO) 
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RATE { 2 ) 
SAVED 1 
SAVED 2 
SOLLR 

SOLQDT 

SKATES (50) 

SRATEl 

SRATE2 

TCLOCK 

TEG (30) 

UEPOCH(200) 

UGTBEG(200) 

UGTEND (200) 

UPRINT 

UPRT 

UTMID 


: floating point full word array containing the 
background and solar X-ray rates for channel 1. 

: double word floating point variable containing 
the sum of channels 151-155 and 161-165. 

; double word floating point variable containing 
the sum of channels 144-148 and 168-172. 

: floating point full word variable containing 
the Slim of the lower range solar interpreted 
values . 

: floating point full word variable containing the 
sum for solar quadrant time. 

: floating point full word array of solar Co®'^ 
rates to be summed. 

: floating point full word variable used as a hold 
area for background X-ray rate (solar quadrant) . 

; floating point full word variable used as a hold 
area for solar X-ray rate (solar quadrant) . 

: floating point full word variable containing the 
clock time. 

: floating point full word array containing the 
most recent entries of integrated flux. 

: double word floating point array into which are 
stored the epoch times (in seconds of century) 
from the calibration cards. 

: double word floating point array into which are 
stored all begin times in seconds of century 
from the good time cards. 

; double word floating point array into which are 
stored all end times in seconds of century from 
the good time cards. 

; double word floating point variable containing 
the accumulation time of the first scan to be 
processed in this run. 

: double word floating point variable containing 
the accumulation time of the last scan to be 
processed in this run. 

: double word floating point variable containing 
the midpoint of accumulation time for a spectrum. 



UTl 


UT2 


UVASOCOO) 


ZNZ 


dovible word floating point variable containing 
the accumulation time of a scan in seconds of 
century . 

double word floating point variable containing ' 
the accumulation time of the following scan in 
seconds of century. 

double word floating point array containing the 
most current entries of the time of peak flux 
(seconds of century) . 

floating point full word variable into which n^ 
is read from the calibration card. 

floating point full word array into which are 
stored all values of n from the calibration 
cards . ° 


ZNZERO(200) 
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VI. Subroutine CALNDR (USOC ,IYR, IMO, IDA, IHR, IMN, SEC) 


Program Language : Fortran IV, G-Level 

Date Written : February 1972 

Programmer : S. Croteau 

Installation : University of New Hampshire 

Space Science Center 

Computer : IBM-360-H50 

Dummy Arguments : 1) USOC; double precision input floating 

point variable containing seconds of 
century. 

2) lYR: output integer full word con- 
taining year. 

3) IMO: output integer full word con- 
taining month . 

4) IDA; output integer full word con- 
taining day. 

5) IHR: output integer full word con- 
taining hour. 

6) IMN; output integer full word con- 
taining minutes. 

7) SEC: output floating point full word 
containing seconds. 

Subprograms Called : None 

Description : This subroutine accepts seconds of cen- 

tury as input via the argument list and 
converts this time to calendar time — 
year, month, day, hours, minutes, and 
seconds. The input value in seconds of 
century is a 64-L*t floating point word. 
The output variables are 32 -bit integers 
except for the seconds which are stored 
in a 32-bit floating point word. 
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VII. Subroutine CELEAR (RA,DEC ,SATRA,S ATDEC, THETA, PHI) 


Program Language 

Date Written 

Programmer 

Installation 

Computer 

Dummy Arguments 


Subprograms Called 


Fortran IV, G- Level 
January 1972 
Dr. P. Higbie 

University of New Hcunpshire 
IBM-360-H50 

1) RA; input floating point full word 
variable containing right ascension. 

2) DEC; input floating point full word 
variable containing declination. 

3) SATRA; input floating point full word 
variable containing satellite right 
ascension. 

4) SATDEC; input floating point full word 
variable containing satellite declination. 

5) THETA: output floating point full word 
variable containing theta. 

6) PHI: output floating point full word 
variable containing phi. 

SPHREC, ROTATE, RECSPH 


Description : This sxibroutine transforms a vector 

specified in celestial coordinates into 
a vector in earth-centered coordinates. 
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VIII. Subroutine CROSS (A,B,AXBN) 


Program Language 

Date Written 

Programmer 

Installation 

Computer 

Dummy Arguments 


Subprograms Called 
Description 


Fortran IV, G-Level 
January, 1972 
P. Higbie 

University of New Hampshire 
IBM-360-H50 

1) A; input floating point array of three 
values. 

2) B: input floating point array of three 
values . 

3) AXBN: output floating point array of 
three values. 

None 

This subroutine is a vector routine called 
by subroutine FARM in the calculation of 
the scan quadrant declination. It does 
what its name implies. 
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IX. Subprogram FEEDER 

Program Language : IBM 0/S Assembler Language 

See Section 1 of this report. 
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X. Subroutine FORTIM (IRUNDA,IRUNT) 


Program Language 
Date Written 
Programmer 
Installation 

Computer 
Dummy Arguments 


Subprograms Called 
Description 


Example 


IBM 0/S 360 Assembler Language 
July 1969 
A. Buck 

University of New Hampshire 
Space Science Center 

IBM-360-H50 

1) IRUNDA: output integer full word 
containing the date. 

2) IRUNT: output integer full word 
containing the time of day in hundredths 
of a second. 


None-. 


Subroutine FORTIM uses the time macro 
to fetch the date and the time from 
the computer clock. The date and the 
time are only as accurate as the cor- 
responding information entered by the 
operator. 

FORTIM is called at 2.37 seconds after 
3 minutes after 1 o’clock, A.M. on 
February 10, 1970. When control is 
returned from subroutine FORTIM, IRUNDA 
contains 70041 in binary form and IRUNT 
contains 3780237 in binary form. 
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Xi; Siibroutine FPUT (IDSN,ICMD,lRSLT,IOVEC) 


Program Language ; IBM 0/S 360 Assembler Language 

Date Written : February 4, 1971 

Programmer : A. Buck 

Installation ; University Of New Hampshire 

Space Science Center 

: IBM-360-H50 

; 1) IDSN: a full word integer input 

parameter specifying the data set to 
which activity is directed. The inte- 
ger stored at IDSN must be greater than 
zero but less than 21. 

2) ICMD: a full word input integer vari- 
able containing a request type code which 
specifies the activity to be performed. 

a) ICMD = 1 implies that a logical 
record is to be written. 

b) ICMD = 2 implies the data set 
is to be ended. Once ended, the 
data set is unavailable to the 
calling program through the same 
data set ntmber. 

3) IRSLT: a full word output integer 
variable in which subroutine FPUT can 
place a return code as follows 

a) IRSLT = -1 implies request was 
illegal for one of the reasons 
below: 

1, IDSN contained a value 
less than 1 or greater than 
20 . 

ii. ICMD contained a value 
less than 1 or greater than 

2 . 

iii. A write request was made 
to a data set that had been 
ended. 


Computer 
Dummy Arguments 
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iv. An endfile request was 
made to a data set either 
before the first write request 
or after the data set had been 
ended. 

b) IRSLT = 0 implies request was 
executed normally. 

c) IRSLT = 1 implies an I/O error 
occurred while writing a block. 

The data set was ended. 

4) lOVEC; an input vector whose high 
order byte is the first byte to be written 
(when ICMD =1) in a logical record. 

The nvimber of bytes written is specified 
by the LRECL subparameter on the DD state- 
ment describing the data set. 

Subprograms Called : None 

Description ; Subroutine FPUT is a QSAM output sub- 

routine to write logical records from 
an area defined by the calling program. 
This routine is specifically designed 
to allow a Fortran program to create 
without format control an extensive 
data set to which the DCB subparameter 
•RECFM = FB' applies. For data sets 
to which ’RECFM = F' or RECFM = U> 
applies, subroutine FTWRIT may be more 
easily used. 

Subroutine FPUT can manage as many as 
20 data sets in the same job step. As 
many as desired may be active simulta- 
neously. Once the endfile command 
has been issued to a data set, sub- 
routine FPUT will refuse to perform 
any further activity for that particular 
data set. The large number of data 
sets allows writing as many as 20 files 
to the same magnetic tape volume as a 
possible application. 

DD Statements required. . , 

If sxiboutine FPUT is called with IDSN=1 
(or 2 ,..., or 20) the user must supply 
a DD Statement having the DD name FPUTOl 
(or FPUT02,..., or FPUT20) . The DD State- 
ment must include the DCB subparameters 
’RECFM’, 'LRECL', and ’BLKSIZE' but must 
omit ’DSORG' and ’MACRF’ . 
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XII. Subroutine GAINB CCHAN,M0NE1 ,MTW02) 


I Fortran IV, G- Level 
: November 1972 
: S. Croteau 

: University of New Hampshire 
I IBM-360-H50 

; 1) CHAN: output floating point full word 
array containing the gain-corrected 
spectrum. 

2) MONEl: output integer full word 
variable containing the channel number 
of the first element of CHAN. 

3) MTW02; output integer full word 
variable containing the channel nvimber 
of the last element of the gain-corrected 
spectrxim in CHAN. 

Subprograms Called : None 

Description ; This subroutine does a gain change 

normalization in the following manner: 

A. Experimenter tape 

where n = channel number 

N = counts in channel n 
n 

= C (n + n^)^ = energy of left channel edge 

AE - “ ®n + "^0 

= width of energy window 
for channel n 

C,n^ = determined gain and offset 
parameters 

n = N /AE = counts per MeV in channel n. 
n n' n 

B. Pass-Ill normalized tape 


Program Language 

Date Written 

Programmer 

Installation 

Computer 

Dummy Arguments 
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n = 


N = 
n 


> n 

> N 


n 


let 


E = K. 

m 

K = 

mi = 
iriaK 


m 


fixed gain = .5x10“** 
first integer (15 + n^) 

last integer (377 + n^) 


C. Gain Changing 

The number of counts in the experimenter tapes is 

“ *^15*^Ei 5 ^ '^le^Eig ^17*^Ei® 

The number of counts per channel in the Pass- III tape is; 

E 

^m =. / ^E<^® 


*^37 6 ^ 


J / D 


The inputs to this program are the C value, 
the standard C(. 00005), NZERO(80.2), and 
the main frame data for either a back- 
ground or a solar quadrant . The energy is 
computed for channels 1 to 377 and then 
the counts/MeV are calculated by dividing 
the number of counts in a certain channel 
by the: difference in MeV between that 
channel and the following channel . Then 
the energy is computed for channels MONEl 
to MTW02. The energies of the two spectra 
are compared and the program computes 
channel counts for the new spectrum by 
multiplying the difference of energies 
in MeV by count s/MeV. An array of 4 
values is used to store all the counts for 
one particular channel and is summed to 
give the total counts for that channel. 

This procedure is followed for all the 
channels through MTW02 . The new gain- 
corrected spectrum' is then passed to the 
calling program through CHAN. 
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XIII. ENTRY HPARM 


Program Language 

Date Written 

Programmer 

Installation 

Computer 

Dummy Arguments 

Subprograms Called 

Description 


Fortran IV, G-Level 
Jaunary 1972 
P. Higbie 

University of New Hampshire 

IBM-360-H50 

None 

FEEDER, VABELT 

: ENTRY HPARM is an entry of subroutine PARM. 
HPARM is used to calculate Van Allen Belt 
parameters as well as the sun right 
ascension and declination. The technique 
is the same as that used in the stand-alone 
operations Van Allen Predict Program 
(see Section 6) . Both programs used the 
subroutine VABELT involving data 
interpolated from World Maps of Flux 
Contours (NASA SP-3054) . 

The orbital data used by HPARM is supplied 
by subprogram FEEDER from the experimenter 
data tapes. HPARM is called at the 
beginning of each new file and returns 
the peak flux, the time and the integrated 
dose of any Van Allen Belt encounter. 
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XIV. ENTRY INTPRM 

Program Language 

Date Written 

Programmer 

Installation 

Computer 

Dummy Arguments 

Subprograms Called 

Description 


Fortran IV, G-Level 
January 1972 
P . Higbie 

University of New Hampshire 

IBM-360-H50 

None 

None 

ENTRY INTPRM is an entry of subroutine 
FARM. It is called once during program 
execution prior to any call to PARM or 
HPARM. It simply serves the purpose of 
initializing variables and constants to 
be used in subsequent calls to the other 
two routines . 
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XV. Subroutine FARM 

Program Language 

Date Written 

Programmer 

Installation 

Computer 

Dummy Arguments 

Subprograms Called 

Description 


Fortran IV, G-Level 
January 1972 
P. Higbie 

University of New Hampshire 

IBM-360-H50 

None 

SPHREC, CROSS, RECSPH , REEDER, CELEAR, VCR 

Subroutine PARM calculates the right 
ascension and the declination for the 
satellite. The spin and reference direc- 
tion data is acquired from the header 
information supplied with each major frame 
of data. Magnetic coordinate information 
and the position of the satellite at the 
time of spectra accumulation is taken from 
the orbit data supplied by FEEDER from the 
experimehter data tapes. This information 
is then used to calculate the reference 
directions in an earth-centfered coordinate 
system. The subroutine VCR is called to 
calculate the vertical cutoff rigidity. 
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XVI. Subroutine RECSPH (THETA, PHI ,V) 


Program Language 

Date Written 

Programmer 

Installation 

Computer 

Dximmy Arguments 


Subprograms Called 
Description 


Fortran IV, G-Level 
January 1972 
P. Higbie 

University of New Hampshire 
IBM-360-H50 

1) THETA; output floating point full 
word variable containing theta. 

2) PHI; output floating point full word 
variable containing phi. 

3) V; input floating point array of three 
elements used to calculate theta and phi. 

None 

This subroutine is called by PARM to 
calculate THETA and PHI from the 
3 -element array V. 



XVII. Subroutine ROTATE CN,AA,V,VP) 


Program Language 

Date Written 

Programmer 

Installation 

Computer 

Dummy Arguments 


Subprograms Called 
Description 


Fortran IV, G-Level 
January 1972 
P. Higbie 

University of New Hampshire 
IBM-3 60-H50 

1) N: input integer full word variable 
set to 1, 2 , or 3 to indicate how the 
axes are to be rotated. 

2) AA: input floating point full word 
variable containing the right ascension. 

3) V; input floating point full word 
vector of three elements to be rotated. 

4) VP; output floating point full word 
vector of three elements. 

None 

This program is called by CELEAR in the 
transformation from celestial coordinates 
to earth-centered coordinates. ROTATE is 
called to establish the new coordinate 
system by rotating the axis. 
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XVIII. Subroutine 

Program Language 

Date Written 

Programmer 

Installation 

Computer 

Dximmy Arguments 


Subprograms Called 
Description 


SOCENT (IRY , IMO , IDA , IHR , IMN , SEC ,USOC ) 


: Fortran IV, G-Level 
: February 1972 
: S . Croteau 

; University of New Hampshire 
; IBM-360-H50 

; 1) lYR: input integer full word variable 
containing year. 

2) IMO; input integer full word variable 
containing month. 

3) IDA: input integer full word variable 
containing day. 

4) IHR; input integer full word variable 
containing hour. 

5) IMIN; input integer full word variable 
containing minutes . 

6) SEC: input floating point full word 
variable containing seconds. 

7) USOC: output double word floating 
point variable containing seconds of 
century . 

; None 

: This subroutine converts calendar time 
to seconds of century. 
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XIX. Subroutine SPHREC (THETA, PHI ,V) 


Program Language 

Date Written 

Programmer 

Installation 

Computer 

Dummy Arguments 


Subprograms Called 
Description 


Fortran IV, G-Level 
January 1972 
P. Higbie 

University of New Hampshire 
IBM-360-H50 

1) THETA: input floating point full word 
variable containing theta. 

2) PHI: input floating point full word 
variable containing phi. 

3) V: output floating point full word 
array of 3 elements. 

None 

This subroutine is called by CELEAR and 
by PARM. It accepts as input THETA and 
PHI and returns the 3-element array V for 
values of theta from -10.0 to 10.0. 
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XX. Subroutine VABELT CGLON,GLAT, ALT, FLUX) 


: Fortran IV, G-Level 
: December 1971 
: P. Higbie 

: University of New Hampshire 
: IBM-360-H50 

: 1) GLON; input floating point full word 
variable containing the longitude, 

2) GLAT: input floating point full word 
variable containing the latitude. 

3) ALT: input floating point full word 
variable containing the altitude, 

4) FLUX; output floating point full word 
variable containing the flux. 

Subprograms Called : None 

Description : Data for the VABELT program was taken by 

interpolating at 15® intervals the data 
shown in the document, "World Maps of 
Constant B, L, and Flux Contours," 

(NASA SP-3054) . The data is for integral 
proton fluxes for E>5 MeV, 

Linear interpolation on the grid defined 
by the array FLXGRD is performed accord- 
ing to techniques given in McCormick and 
Salvadori, Numerical Methods in Fortran , 
page 118. The argument list Consists of 
the longitude of the satellite in degrees, 
the latitude of the satellite in degrees, 
and the altitude of the satellite in 
kilometers. The program returns the 
proton flux at the given coordinates 
(counts/cm^sec) . 


Program Language 

Date Written 

Programmer 

Installation 

Computer 

Dummy Arguments 
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XXI. Subroutine VCR 

Program Language 

Date Written 

Programmer 

Installation 

Computer 

Dummy Arguments 


Subprograms Called 
Description 


(GLON,GLAT,PC) 


: Fortran IV, G- Level 
: December 1971 
: P. Higbie 

; University of New Hampshire 
: IBM-360-H50 

: 1) GLON: input floating point full word 
variable containing the longitude. 

2) GLAT; input floating point full word 
variable containing the latitude, 

3) PC: output floating point full word 
variable containing the rigidity. 

; None 

: Subroutine VCR performs an interpolation 
on the map of cutoff rigidities given by 
Shea et al. The latitude and longitude 
must be supplied as input parameters; the 
vertical cutoff rigidity (PC) is returned. 
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XXII. Description of Input 


A. Control card format 

This card must be the first card read. The format is as 
follows 


y] 

W 

S 

Eh 


1 i 


I It) 1 
22 




5 33 
44 
55 


668 6 
? 1 1 


8 6 
8 9 

t 7 


tn n 

2 2 2 ! 


3 3 


3 

|4 4 

5 5 

6 6 
7 

8 8l 


77 


|G0|D QM Q 0 dO D 

ll 3 M (6 17 H 

1 1 11 n 1 


b 9|9 9|5 9|9 3 

j i 


1 IP 


|2 2 2 
333 
|4 4 4 


9 9 

n 1? 
l33ai<i 


fM 

H 

OG 

Il9 » 21 


[2 2 2 2 2 2 
|3 3 3 3 3 3 
k 4 4 4 4 4 

5 5 5 5 5 5 

6 6 6 6 6 6 
7 7 7 7 n 

B|8 8 8 6 6 8 


S B 9 9 9 9 

13 14 (5 iS 17 IB 


111 


|2 2 2 
333 
444 
15 5 5 
66 6 
7 7 7 
88 


99 

19 2 S 71 


ro 

H 

QQ 


1 1 
2 22 
33 3 
44 4 
5 55 
666 
7 7 7 
S|88 8 


QlQGOOnOOOGOOOOflOOOOQODOOOOOGOSOOODOGQQOOOOOOOOtOOOOOGGOOO 

5 26 <7 a 29 30 3 U 2 33 M 35 36 37 38 39 40 <1 42 43 « 45 <6 4 J 49 41 50 51 52 53 54 45 55 57 58 SI 6 d fi 1 tt 83 M BS BS «7 68 » 70 ?( 72 73 74 75 16 77 16 71 Bl» 

111111111111111 11111 11111111111 111111111111111111111111 ' 


9^999 


UNIVERSITY OF NEW HAMPSHIRE 



COMPUTATION CENTER 


222222222222222222222222 
393333333333333333339333 
444444444444444444444444 
5 5 3 $ 5 5 S S 5 S 5 S 5 S S S 5 5 5 5 S 5 $ 5 
666ES666S686666666666BB6 
777771777777777717711777 
38S88838888888888888B8BB 


99S999S 9 9 999999999999999 9999989999999993999999999S399999 

k :* 28 29 ?0 3! 3? 3:1 34 35 36 31 *.0 39 <0 44 42 43 44 45 4? 47 « 48 53 51 U S3 5^ IJ X 57 58 58 60 51 62 W $4 « 66 67 £8 O 70 J1 72 73 7* 75 77 76 73 » 


NTAPES 

MFDOP 

lATTOP 
IDSOP 
IAS OP 


N\imber of tapes to be processed 

0 = Main frame data not processed 

1 = All main frame data processed 

2 = PHA channel counts ignored 

0 = Omission of attitude data 

1 = Attitude data values processed 

0 = Omission of digital subcom data 

1 = Digital subcom data processed 

0 = Omission of wheel analog subcom 
words 3-10 

1 - All 10 wheel analog words to be 
processed 

0 = No orbit data needed 

1 = Regular orbit data items are 
desired 

2 = All orbit data items required 


lORBOP 
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IFl IFl = 1 IF2 = 10 IF3 = 15 

IF2 These input values are used in the 

IF3 determination of the presence or 

absence of bit errors in the gamma 
spectrum. They were included in 
the control card so as to simplify 
a re-definition of the require- 
ments as to what constitutes a 
bit error . As it turned out , 
the original definition and re- 
quirements proved to be quite 
adequate . 
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B, Van Allen cards 


< 

M 

?H 

00 
T 2 

I 1 
22 
33 
44 
55 
6 61 
? 7 
8 81 


iO 0 

3 4| 

) t 
2 2 

3 3 

4 4 
55 
6 

7 7 


I 

O 

ODlO 


^ I 
O! 


53 

M 

S 

loolo 


ni 


03 

00 0 
111 X? 13 M| 

1 1 1 


222 


6|8 6 
7 7 
68 


8 9 9l 


[2 2 

3 3 

4 4|4 


ml 


OQOOOOOQOQOOOOOOO 

i|is ie 17 1ft 19 20 2) 22 Z3 24 2S 26 77 3 30 » 

1 1 11 n 1 11 M 1 1 1 1 11 


12 2 2 2 
la 333 
444 

5 5 5 5 5 

6 8 6 6 6 

7 7 7 7 7 

8 8 8 6 


9 9 9 9 
111 12 n 1 ^ 

C 8910 


MAX FLUX I INTEGRATED 
, ^ FLUX 

0 0 0091)000000009 0^000000000 0 03 Ob 


33 » 35 3S 17 3ft 39 (041 42 43 44 <3 4ft 47|(8 43 so SI ^ s: 54 95 U 57 53 S9 W61 (2 

IM 1 1 111111111 1 1 1 


|2 2 2 2 2 2 2 2 2 2 
3333333333 
4444444444 
5555555555 
6866666668 
7777/77777 
8|8 8 a 8 e 8 8 S 8 8 


UNIVERSITY OF NEW HAM 


9199 9 9 9 9 9 9 9 9 9 9 5 9 9 9 9 

15 IS U II 1ft 20 21 22 n 24 % 2S 2' 73 29 3C 3i 


b fi4 65 G6 57 n 69 70 7t 72 73 74 75 7« n 


111111 I 1 1.1 1 1 1 11 [1 

^SHIRE l2 2 2 2 2 2l2 2 2 2 2 2 2 2 2 2 2 2 2 2 2|2 



COMPUTATION CENTER 


3 3 3 3 3 3 

4 4 4 4 4 4 

5 5 5 5 5 5 

6 6 6 6 6 6 

7 7 7 7 7 7 

8 8 8 8 8 8 


9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 3 9 9 9 9 8; 

Va 41 ft |6 37 3A»<0 4 l 42 43 44 45 4r4l4a49UlSlS2S3S^£jS6 57Sft»e0ftiq 


OD008QOQGOOOOOb 


111111111111111 


89 

(TB 79ID 

1 7 


22 

333333333333333333 
444444444444444444 
5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 S 
666666686686666666 
7 7 7 7 7 7 7 7 7 7 7 7 7 7 7i7 7 7 

a 8 8 8 8 8 a 8 6 8 8 8 8 8 8|8 8 8 

9 9 9 9 9 9 9 9 9 9 9 9 9 9 9J999 

[63 K M « 67 W M 7ft 71 72 73 74 ?S Tft 7471 7ft fia 


ID 


YEAR 

MONTH 

DAY 

HOUR 

MIN 

SEC - 


The calendar time representing 
the accumulation time of the 
maximum flux. 


MAX FLUX 


The value corresponding to the 
maximum flux for a given orbit. 


INTEGRATED FLUX 


The integrated flux for a 
given orbit. 


ID 


MOO' for Van Allen cards 
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C. Good Time cards 

These cards are output by Pass— I. The format is as follows 


0 OB ODD 


1 2 


3 A 


5 J 

1 f 111 1 1 

2 2 2 2 2 2 | 


<v 


3 3b 3 3 3^3 3 


5 5 

6 6 
1 1 
U 
99 

1 7 


4 4b 4k 4^4 4 


5S555 5 
6 6 6 6 6 6 
1 7 7 7 7 7 
B 8 8 8 S 8| 




9 9 


0 0 


MB 


U 

W. 

C0| 
bOQQ 

|l 1} 13 14| 

1 1 1 


22b 


33 3 
444 


55 


IRLEV 


Mbo 


22 2 
33 3 
444 
|5 5 5 5 

6 6|6 6 6 6i 

7 7 7 7 7 7 


|2 2 2 2 | 


9 9 9 9 9 9 

9 ID 11 12 13 )4| 
389iO 


la a 


P 1U19 20| 

It II 


33 3 


5 5 5 

6 6 6 


777 


9 9 9 


22 
313 3 


4 4k 4 


sesaaiu 


0 0 


Ipl t7\ 
1 


44 
5155 
666 
77 7 


11 ifliB 29: 


toto 


0 

t3 24| 

ll I 


222 


9 9 

?i zA 


d: 

1 1 


O 

03 


0 0 0 0 

|j7 Ji » 30 

mil 


university of new HAMPSHIRE 


e|9 9 9fl9 

I31 v\ 


QboOOOOOOOOOQOOOQdOOOODOOODOOaOOOOOOOQOOOOOOODiO 

!|n 34 IS 36 37 3B 39 4Q 41 42 43 44 4j 46 4) 4e 49 50 5t S2 53 54 55 5B $3 H S9 CD 6t a2 6) 94 G$ 66 ST OS 99 7D 71 72 73 74 » TT 

11 1 1 1 It 11 1 I 111 1 1 1 1 1 1 1 11 1 11 11 11 ill 1 1 1 1 1 1 1 1 1 1 1 1I 


11 


00 

frt T9K^ 

1 1 



fcOMPUTATION CENTER 


2222222222222222222222 

3333333333333333233333 

4444444444444444444444 

SS555S555S55SS55S5SSSS 

B66666E666S666686GE6SS 

7777777777777777177777 


9|9 9 9 9 9 9 9 9 3 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 S 9 9 9 9 9 9 9 9 

» V4t U 49 soil s: VMMtl tl UUtUSett7Cae»)D7l 7}7I 7< 75 76 III: 


ID 


22 

33 

44 

55 

96 

77 

88 


99 
lia I 9 B 1 


YEAR - 

MONTH 

DAY 

HOUR 

MINUTES 

SECONDS 


The midpoint of accumulation 
of the first scan to be processed. 


BO/SO 


YR 

MO 

DA 

HR 

MN 


Indicates whether to begin- pro- 
cessing both background and 
solar or solar only. 


I The midpoint of accumulation 
/ of the last scan to be processed. 


SC 


rj 
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BO/BK Indicates whether to stop pro- 

cessing at the background scan 
or after processing both back- 
ground and solar. 

ID = '100' for good times cards. 


* 
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D. Calibration cards 

These are the output cards from CAL2. There are two cards 
punched for each epoch time. The formats are as follows 


K 




duloiioooooaoooobofiooooQ(io()ODOoooo|o 

) 4 5 6 7 I 9 ia tM2 13 t4| 

1 il! 1 1 1 1 1 1 1 1 1 n 


9 9 9 9 


9 919 

9 6 


7 B 
MOf^EV 


u 

w 


15 18 17 M 19 20 21 22 33 24 75 28 27 2t N M 3^ 32p: 
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qn 1213 14] 


OOOODOOOOQOQQ 

t3 34 35 36 )T3fl39 40 41 4243444S4« 47|4! 

In 11 11 1 1 1 n 11 n 


2 2|2 2|2 2|2 2 2 2|2 2 2 212 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 

3 3|3 3|3 3 3 3 3 3|3 3 3 3|3 3 3 3 3 3 3 3 3 a 3 3 3 3 3 3 3 

4 4|4 414 4 4 4 4 4|4 4 4 4|4 4 4 4 4 4 4 4 4 4 + 4 4 4 4 4 4 

5 5|3 sis sis S S sis 3 5 S|5 5 5 S 5 5 S 5 5 5 S 5 5 S 5 5 5 

S 6|6 sis sIg 6 6 sis E 6 6|G 6 B 6 6 B 6 8 6 6 6 6 6 6 6 6 6 

7 7|7 7|n 7 7 7 7|7 7 7 7|7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 
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B ID 


15 16 17 IB 19 20 21 22 23 24 25 25 27 28 29 30 31 32 


0|0 00080000900000900000008000000 

ij o sg Ji 3:; 3] M 55 St S7 se » n sin 

1111111111111111 


22222222222222 
333333333333333 
4 I 4 4444444444444 
sis $ 5 S 5 5 S 5 S S S $ S 5 


9|9 9999999999999 

111 34 » JB SI 36 39 W 41 42 43 44 45 48 


:k3 64 G3 66 II 88 69 70 T1 72 73 14 75 7« H 


3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 


6666866G6€66686666B666&6GB6666666666666B666666|6 

77J 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 ? 7 7 7 7 7 7 7 7 7 7 7 7 77 7 7 7 7 7 7 7 7 7 7 

88G88888888d88B88B888888B888888&888B88BSB888G 


9399S9999999999 

47 4$ 49 50 51 52 » 54 55 56 57 M 53 60 61 




ID 


111111111111111 


|7| 79 ED 

1 1 


222222222222222 2|2 2222222222222 2|2 22 
333333333333333 

4|4 4444444444444 4|4 4444444444444 4|4 
5l5 5 5 5 5 5 5 5 5 5 5 5 5 5 5l5 5 5 5 5 5 5 5 5 5 5 5 5 5 5|5 
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44 
55 
86 
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1 
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3 

4 41 


n: 

Eh 

O 

s 

M 


22 
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555 5|55| 

66 

7 

8 


7 7 7 7 

8 8 8 8 


Q 
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2 22 2 2 2 


3 23 3 


5 6 


1 11 1 


444444 


7 7 
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9 399|9 9|9^9 9|9 9 9 9| 


7 I 

MOFfi 
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w 

to 
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IMS 11 14| 
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6S6G 
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1^ 

g 

O 
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It 17 II V 
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11 


999 
15 16 n 111 


|0 000000000000800000000000000 0 
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1111111111111111111111111111 
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111111111111111 


22222222222222222222222222222 
13333333333333333333313333332 
44444444444444444444444444444 4|4 
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S 5 5 5|S S 5 

6SSE|6 66 6|6fi6666866S6666666666S6S6666S6|6 66eG 666666B6G6| 
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99999999999993999999999999999 
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^ 49 50 51 52 53 64 55 56 57 » 55 60 61 di 


ID 

301 

00 
717110 
1 1 


63 64 66 68 61 69 69 ID 71 72 71 74 75 76 71 


222 
3 33 
444 

5 55 

6 66 

7 7 7 

8 88 
999 

73 79 BO 
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q 

r 


QUAL 


ID 


The value of 

o 

dC 

The value of 

,The average (80.2} 

The quality indicator 

'1' = good quality 
' 2 * = questionable quality 
' 3 ' = poor quality 

The second derivative. Not 
equal to zero only if there were 
more than three calibration runs 
for the same epoch time - it is 
calculated using three equations. 

= '300' for calibration card type 1. 
= '301' for calibration card type 2. 



E. Experimenter Data Tape 

Pass-Ill reads the experimenter tapes using Subprogram 
FEEDER. For a description of the tape format, see 
Section 2 XXIII B of this report. 
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XXIII. Description of Output 


The output of this program is a 9-track parameter tape with a 
logical record length of 3540 and a block size of 3540 8-bit 
bytes . 

The first letter of each variable described below indicates its 
type as follows: 


A-G 

32-bit 

floating 

point 

word 

H 

16-bit 

integer. 



I-N 

32-bit 

integer . 



O-T 

32-bit 

floating 

point 

word 

U 

64-bit 

character . 


V-Z 

32-bit 

f Ibating 

point 

word 


The type format is as follows; 



Begin time is the accumulation 
time of the spectrum. 


End time is the accumulation 
time for the next scan - should 
by 184.32 seconds greater than 
begin time. 


STATUS 



HSOBK 

HDANT 

HNMALT 

HSCN 

HLCAL 

HRCAL 

HMGYRO 

HSTAT 


'1' = SOLAR '2' = BACKGROUND 
’ 1 ' = DAY ' 2 ’ = NIGHT 
’ 1 ' = NORMAL ' 2 ' - ALTERNATE 
'!• = FULL '2' = INTERMEDIATE '3' 
ELECTRONIC CALIBRATION = ON '2' 

RADIATION CALIBRATION '1' = ON '2' - 
•1' = MAGNETOMETER ’2’ = GYRO 
12-bit status word. This is status 
at accumulation and corresponds to 
main frame data. 


= SHOR1 
= OFF 
OFF 
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RIGID 


Vertical cutoff rigidity at time 
of midpoint. 


POSITION 

INFORMATION 


BGAUS 

ERMSIL 


XLAT 

XLONG 

XALT 


B and L magnetic coordinates. 

Latitude 

Longitude 

Altitude 


VARIABLE 

OBJECTS 



RASAT 

DECSAT 

RASUN 

DECSUN 


Satellite right ascension 
Satellite declination 
Sun right ascension 
Sun declination 


CELESTIAL 

COORDINATES 


RASQD 

If solar: Right ascension sun quadrant 
If background: Right ascension background quadrant 

DECSQD 

If solar: Declination sun quadrant 
If background: Declination background quadrant 


L raSPIN Right ascension spin axis 

DECSPN Declination spin axis 


EARTH 

coordinates' 


THESUN 

If solar: Theta sun quadrant 
If background: Theta background quadrant 

PHISUN 

If solar: Phi sun quadrant 
If background: Phi background quadrant 

THETAS 
PHIS 
SESANG 


Theta spin axis 
Phi spin axis 
Satellite-earth-sun angle 
- RASAT - RASUN 


*-AH0RIZ 


Horizon angle 


= tan ^ 


. radius earth . ^, 180 
' R© + Alt If 


rXRA(1) background = Total X-ray counts 

in channel 1 

_ SI 29 
EII-24 

RXRA{2) solar = Total X-ray counts in 

channel 1 

II 23 
SII-22 
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VAN ALLEN > 
PARAMETERS 1 


■IYRVPKC14) 
IMOVPK (14) 
IDAVPKC14) 
JULVPK(14) 
IHRVPK(14) 
IMNVPK(14) 
SECVPK(14) 
FLUX (14) 
FLXINT (14) 



Time of Van Allen peaks. 


Flux 

Integrated flux 


UTAPE Tape volume serial number 

IFILE Decomm run number 


ICYRDA Run date : year and day of year 

ICRHRM Run date : hours and minutes 


MONEl Output from gain shift - 1st channel 

MTW02 Output from gain shift - last channel 


TLIVE 


TCLOCK = Clock time * 1/390.625 * 8 
TLIVE = TCLOCK - TDEAD 


TDEAD 


Deadtime = DEADTIME * .001515 
(+ 24.90 if fold over present) 


CHAN (700) 


Gain-shifted spectrum 


HBITER Bit error indicator 

= 'O' if no bit errors present 
= '1' is at least 1 bit error found 


HFOLD Indicates dead time fold over 

= '0* if no fold over present 
= if rigidity ^ 60 and dead 

time < 10.0. When HFOLD = 1, 
the dead time has been adjusted 
by addition of 24.90 to the 
original value. 
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HRATE 


HAVRTE 


HDIV 


HFLGS 


HQUAL 


HATT 


HORB 


HPRM 


HIO 


HEXTRA(9) 


= 

A + B 
D + E 

where 


A 

= ch. 

151 

to 

155 

B 

= ch. 

161 

to 

165 

D 

= ch. 

144 

to 

148 

E 

= ch. 

168 

to 

172 


HRATE 





HDIV 

(No. 

of 

entries) 


There is one average for solar 
quadrants and one average for 
background quadrants . 


The number of scans for which rates 
are included to calculate HAVRTE. 
Starts over after every time gap 
and after every calibration. 


Number of flagged main frame data 
words . 


Quality indicator - indicates 
quality of gain shift. 


= 'O' if attitude data was available 
= if no attitude data was available 


= '0* if orbit data was available 
= if no orbit data was available 


= 'O' if SUNRA and SUNDEC are valid 
= '1' if SUNRA and SUNDEC are not 
valid 


= Number of I/O error major frames 
in section 


Extra words to be used at a later 
date. 
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Sample Output 
PASS-III 

NUH8ER OF CARDS MITH INVALID 10 = 0 

TAPE IDENTIFICATION DECOMM RUN NUM6ER * 158 V0LUME=SER=EXD31A 

FIRST GOOD TIME YEAR=72 M0NTh=12 CAY= 6 HOUR* 1 HINUTES*18 SEC0N0S=A6.8 

RUN DATE YR / DAy QF YR 732A9 HRS / MIN 2008 


TAPE 

IDENTIFICATION 

RUN 

NUMBER 

as 

15B 

V0LUME*SER*EX0315 

TAPE 

IDENTIFICATION 

RUN 

NUMBER 


159 

V0LUME=SER=EX0292 

TAPE 

IDENT IFICATION 

RUN 

NUMBER 

- 

159 

V0LCM£=S£R*EX0293 

TAPE 

IDENTIFICATION 

RUN 

NUMBER 

= 

160 

V0LUME=SER*EXD316 

TAPE 

IDENTIFICATION 

RUN 

NUMBER 


161 

V0LUME*SER=EX0294 

TAPE 

IDENT IFICATION 

RUN 

NUMBER 


161 

V0LUME=SER*EX0295 

TAPE 

IDENTIFICATION 

RUN 

NUMBER 

s 

162 

VOLUME =SER*EX0306 


LAST GOOD TIME YEAR=72 M0NTH=12 ,0AY»17 HOUR* 0 MINUTES*58 SECONOS=22.8 

NUMBER RECORDS WRITTEN = 5370 
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I. Introduction 


This program is a stand-alone program which computes certain 
parameters for the satellite's passage through the Van Allen 
Belt. The basic subroutines called are HEIGHT and VABELT which 
are also used in the primary data analysis. 

A data set is prepared from data supplied by NASA (E.G. Stassinopolous) 
in a preparatory step and stored on disk. Normal operational 
use requires an Ephemeris data tape supplied by NASA (J.B. Joyce) 
and the data set stored on disk. 

The predict program computes for a given period of time the peak 
flux encountered, the time of the peak flux, the integral flux 
during the orbit, the times where the satellite encountered 
and then left regions with fluxes >10^ photons/cm^sec with the 
corresponding positional information. 

Estimated uncertainties are less than one minute for the orbital 
elements, three weeks from epoch. At the three-sigma confidence 
level the VA data is off by a factor of 2 at worst. 
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II. Macro System Flowchart (Van Allen Predict) 



OPERATIONAL USE 
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III, Job Stream Schematic (Van Allen Predict) 
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IV. JOB CONTROL LANGUAGE - VAPREDICT 


If T548 ) T 'VAPREDICT, INKIE G . ' ,CL ASS = F, T I ME= 10 , REG 1 0N = 140K 


//STEPl EXEC 


//LKEO.SYSLIB 

// 

n 

u 


FORTGLG 

DO DSN=USER.T548.SUBLIB, DISP=SHR 
OD DSN=USER.T317.SUBL IB,DISP=SHR 
OD DSN=SYS1.F0RTLIB,DISP=SHR 
DO OSN=USER.SSPLIB,OI SP=SHR 


//LKED.SYSIN DO * 


VAPREDICT AND VABELT OBJECT DECKS 


/* 

//GO.FTlOFOOl DD DI SP =OLD , DSN=US ER . T 548 . VAD AT A 

//G0.FT09F001 DO UNI T=2400 , DCB= < R6CFM=VS, BLKSI ZE=2808 ) ,LABEL=I 1, 
// VQLUME=SER=EFMOOA 
//GO.SYSUDUMP DD SYSOUT=A 
//GO. FT08F001 DD * 

3. 2. 50. 

270. 51. 300. 

60. 270. 9. 

/ ^ 

//GD.SYSIN OD * 

72 

/# 

// 


BLP), 
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V. Disk Preparation 

Program Language 
Date Written 
Programmer 
Installation 
Computer 

Subprograms Called 
Description 


Program 


: Fortran IV, G-Level 
: September 1971 
; P. Higbie 

; University of New Hampshire 
; IBM-360-H50 
: None 

: This program is used to generate the array 
FLXGRD (flux grid) and to put it out on 
disk on the data set named USER.T548. 
VADATA. This grid remains on disk through- 
out the use of the Van Allen Predict 
program . 

The data set is prepared from data supplied 
by NASA (E , G. Stassinopolous) . Energy 
selection may be accompanied by changing 
the variable equated to FLXGRD. The 
listing has Fl5 for this variable which 
corresponds to a flux map of protons 
greater than 15 MeV in energy. Corres- 
ponding to the various FN's are the 
energies N=3 , 5, 15 , 30 , 50 , 100 MeV. 

A listing of the program is given for 
reference (Figure V. 1) . 
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S IV G LEVEL 19 MAIN DATE = 72095 

9 

DIMENSION ALT (7) ,FLXGRD (51 , 49 , 7) 

DO 10 IALT=1,7 
READ(9,300) ALT(IALT) 

300 F0RMAT(2F6.1,F8,5,F6.2,6E12.4) 

DO 10 ILAT-1,49 
DO 10 ILON=l,51 
JLAT=50-ILAT 

READ(9,300)GLAT,GLON,B,XL,F3,F5,F15,F30,F50,F100 
10 FLXGRD(IL0N,JLAT,IALT)=F15 
WRITE (10) FLXGRD 
END FILE 10 
END 


//GO.FTlOFOOl DD UNIT=SYSDA, DISP= (NEW,CATLG) , 

DSN=USER, TiS 4 8 , VADATA , VOL=SER=USER0 1 


Figure V.l. Disk Preparation Program 


13/57/01 
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VI. VAPREDICT Main 

Program Language 
Date Written 
Programmer 
Installation 
Computer 

Subprograms Called 
Description 


Program 


Fortran IV, G-Level 
September 1971 
P . Higbie 

University of New Hampshire 

IBM-360-H50 

HEIGHT ,VABELT 

This program reads the ephemeris data 
tape, calculates the longitude and the 
latitude , calls HEIGHT to calculate the 
altitude, and calls VABELT to calculate 
the flux. The program computes for a 
given period of time the peak flux en- 
countered, the time of the peak flux, the 
integral flux during the orbit, the times 
when the satellite encountered and the 
left regions with fluxes >10^ photons/cm^ 
sec with the corresponding positional 
information. A listing is then generated 
containing all of the information men- 
tioned above. 



VII. Subroutine HEIGHT (GLAT, R,ALT) 


Program Language 

Date Written 

Programmer 

Installation 

Computer 

Dummy Arguments 


Subprograms Called 
Description 


Fortran IV, G-Level 
September 1971 
P. Higbie 

University of New Hampshire 
IBM-360-H50 

1) GLAT; input floating point full word 
variable containing latitude. 

2) R: input floating point full word 
variable related to time. 

3) ALT: output floating point full word 
variable containing altitude. 

None 

This subroutine is responsible for the 
calculation of the altitude of the 
satellite at a certain latitude. 
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VIII. Subroutine VABELT CGLON ,GLAT , ALT , FLUX) 


Program Language 


Fortran IV, G-Level 


Date Written 


December 1971 


Programmer 
Installation 
Computer 
Dummy Arguments 


Subprograms Called 
Description 


P. Higbie 

University of New Hampshire 
IBM-360-H50 

1) GLON; input floating point full word 
variable containing the longitude. 

2) GLAT: input floating point full word 
variable containing the latitude. 

3) ALT: input floating point full word 
variable containing the altitude. 

4) FLUX: output floating point full word 
variable containing the flux. 

None 

Data for the VABELT program was taken by 
interpolating at 15® intervals the data 
shown in the document, "World Maps of 
Constant B, L, and Flux Contours," 

(NASA SP-3054). The data is for integral 
proton fluxes for E>5 MeV. 

Linear interpolation on the grid defined 
by the array FLXGRD is performed accord- 
ing to techniques given in McCormick and 
Salvadori, Numerical Methods in Fortran, 
page 118. The argument list consists of 
the longitude of the satellite in 
degrees, the latitude of the satellite 
in degrees, and the altitude of the 
satellite in kilometers. The program 
returns the proton flux at the given 
coordinates (counts/cm^sec) . 



IX. Description of Input Epheraeris Data Tape 

This input tape is a 9-track tape (RECFM = VS, BLKSIZE = 2808) 


Entry Description Record 1 

INTERNAL 

EPIIEH Output 

Bytes 

Format 

. Units 

Format 

Units 

(1) Type of tape ID (The word "EPHEM" in 

; 





EBCDIC) 

8 

LF 


EBCDIC 


(2) Satellite number (7 digits) 

4 

LI 

- 

LF 

- 

(3) UTC, A.l indicator; 






= 1, A.l 

4 

LI' 

— 

LF 

— 

= 2, UTC 






(Items 4, 5, and 6 given Start time of the 

Ephemer; 

s) 




(4) Date 





Year, Month, Day 

(5) Day count of year 

8 

LF 

DUT 

LF 

Days from Jan. 0 

(6) Seconds of day 




LF 

Seconds 

(Items 7, 8, and 9 give End time of the Ep 

lemeris) 





(7) Date 




LF 

Year , Month , Day 

(8) Day count of year 

8 

LF 

DUT 

LF 

Days from Jan. 0 oi 

1 

(9) Seconds of day 




LF 

1 

Seconds o 













Entry Description Record 1 


Bytes 

(10) At, interval between ephemeris points 8 

(11) “(26) Run ID taken from MIR comment cards 8 

(27) Reference day for DODS „ 

(September 15, 1957) “ 

(28) Type of Coordinate System Used for 4 

Output 

= 1 , True Equator and Equinox plus 
Equation of Equinoxes, 

= 2 , Mean Equator and Mean Equinox 
= 3 , True Equator and True Equinox 


(29) Orbit Theory Used: 

= 1, Cowell 4 

= 2, Brouwer 

(30) Solar Radiation Constant 4 

(31) Solar Flux Number 4 

(32) Coefficient of: Drag 4 


INTERNAL EPHEH Output 


Format 

Units 

Format 

Units 

LF 

DUT 

LF 

Seconds 

LF 

- 

EBCDIC 

(Up to 128 characters) 

LF 

Calendar 

LF 

Year, Month, Day 

LI 


EBCDIC 

and 

LI 

(1st 4 Bytes EBCDIC, 
2nd 4 Bytes 
Indicator value) ; 
"True" 1 
'’Mean" 2 
"Inter" 3 

LI 

- 

EBCDIC 

(8 Bytes Saying 
"Cowell" or 
"Brouwer") 

SF 

gm 

LF 

gm 

DUL DUTi: 

cm sec^ 

SF 


LF 

CTi 

SF 


LF 



TT- 










Entry Description Record 1 

INTERNAL 

EPflEM Output 

Bytes 

Format 

. Units 

Format 

Units 

1 ■ 

(33) 

C^, Shape 

8 

LF 

- 

LF 

1 


(34) 

Atmosphere Model ID 

8 

LF 

- 

EBCDIC 

(8 bytes saying 
"HAR-PRIE") 


(35) 

Cross sectional area of satellite 

8 

LF 

DUL^ 

LF 

1 9 

1 cm'^ 

1 


. (36) 

Mass of satellite 

8 

LF 

gm 

LF 

; gm 


(37) 

Zonal and tessera harmonics 
indicate 

4 

LI 

- 

LF 

= 0 , us 
= 1 , no 

1 

^d 

t used 

1 



(Use same 







(38) 

Brouwer 







(39) 

Lunar gravitation perturbation 







(40) 

Solar radiation perturbation 







(41) 

Solar gravitation perturbation 






r 

H 











INTERNAL 

EPHEM Output 


Entry Description Record 1 

Bytes 

Format 

Units 

Format 

Units 

(42) 

Drag perturbation indicator 

4 

LI 

- 

LF 

- 

(43) 

Elements epoch, t^ 

8 

LF 

DUT 

LF 

DUT 

(44) 

Year 




LF 

Year 

(45) 

Month 



j 

LF 

Month 

(46) 

Day 



DUT 

LF 

Day 

8 

LF 



(47) 

Hour 




LF 

Hour 

1 

(48) 

Minute 




LF 

Minute 

(49) 

Seconds X 1000 




LF 

Seconds 


(Items 50 through 55 are Brouwer mean if 
classical Keplerian if item 29 = 'Cowell' 

Item 29 = 

' Brouwe 

1 

9 



(50) 

Semi-major axis at t^ 

8 

LF 

DUL 

LF 

km. 

(51) 

Eccentricity at t^ 

8 

LF 

- 

LF 

— 

(52) 

Inclination at t^ 

8 

LF 

rad 

LF ■ 

rad 


-13 




Entry Description Record 1 

(53) Argument of perigee at t^ 

(54) Node at t^ 

(55) Mean anomaly at t^ 

(Items 56 through 71 are osculating value 

(56) True Anomaly 

(57) Arg. of lat. -(53) +(56) 

(58) Flight path angle 

(59) Eccentric Anomaly 

(60) Period 

(61) Perigee height 

(62) Apogee height 

(63) Mean motion 



INTERNAL 

EPHEM Output 

Bytes 

Format 

Units 

Format 

Units 

8 

LF 

rad 

LF 

rad 

8 

LF 

rad 

LF 

rad 

8 

LF 

rad 

LF 

rad 

evaluai 

•ed at t 

0 

) 



8 

LF 

rad 

LF 

! 

rad 

8 

LF 

rad 

LF 

rad 

8 

LF 

rad 

LF 

rad 

8 

LF 

rad 

LF 

rad 

8 

LF 


LF 

DUT 

8 

LF 

DUL 

LF 

km 

8 

LF 

DDL 

LF 

km 

8 

LF 

rad /DOT 

LF 

rad/DUT 




-14 





Entry Description Record 1 


Bytes 

(64) Argument of perigee secular rate of g 

change 

(65) Node secular rate of change 8 

(66) X Epoch 

(67) Y Position 8 

(68) Z Vector 

(69) X Epoch 

(70) Y Velocity 8 

(71) Z Vector 


(72) 


-(91) Times of Brouwer drag coefficients; 
t t 1 * * * t T 

P/O/ Pfl/ P/19 


8 


(92) -(111) Brouwer first order drag 

coefficients; N2 q'*** 

^ 2 , 19 ' 

or Cowell drag coefficients 


INTERNAL EPHEM Output 

Format Units Format Units 

LF rad/DUT LF rad/DUT 

LF rad/DUT LF rad/DUT 

LF DUL LF DUL 

LF DUL/DUT LF DUL/DUT 

LF DUT LF DUT 





ST- 






Entry Description Record 1 

INTERNAL 

EPHEM Output 

Bytes 

Format 

Units 

Format 

Units 

(112)- (131) Brouwer second order drag 
coefficients ; 

^3,0,^3,1, • • •’^3,19 

8 

LF 

rad 

DUT^ 

LF 

rad 
DUT 3 

(132) Number of non- zero times in items 
{72)-(91) 

4 

LI 

- 

LF 


(133)- (192) Unknowns associated with epoch 
elements if their origin was previous 
DC or PCE 

8 

LF 

- 

- 

(60 8-Byte EBCDIC 
words? one for each 
unknown used) 

(193) Start time of ephemeris 

8 

LF 

DUT 

LF 

DUT 

(194) End time of ephemeris 

8 

LF 

DUT 

LF 

DUT 

(195) At, interval between ephermeris points 

8 

LF 

DUT 

LF 

DUT 

(196) LPN indicator * 

= 1, include precession and nutation 
= 2, include precession only 
= 3 , neglect precession and nutation 

4 

LI 

- 

LF 


(197) Greenwich hour angle at epoch 

8 

LF 

Rad 

LF 

Rad T 

t-j 

(198)- (293) - not used (zeros) 

8 

LF 

- 

LF 
















Entry Description Record 1 


INTERNAL 


Bytes Format Units Format 


EPflEM Output 


Units 



LF Year , Mo . , 
Day 


Days from 
Jan. 0 


Seconds 


Seconds 


LF PUL 


and end-of-data indicators if KK<50 







Entry Description Record 1 


Bytes 


(305) t 

(306) |At| 

(307) -(350) 



not used (zeros) 


8 

8 each 


(I) -(IO) SENTINEL = 

+.9999999999999999+16 

(II) - (350) not used 


8 

8 each 


INTERNAL EPHEM Output 


Format 


Units 


Format 


Units 
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X. Description of Output 


The output of the Van Allen Predict program is a listing con 
sisting of the following fields: 


A. Year 


B. Julisui Day 

C. Month 


D. Day of month 

E. Hour/minutes 

F. Peak flux in cm ^sec~^ 

G. Integral flux (dose) in cm”^ 

H. Time and position in which the flux becomes 

> 10 ^cm ^sec This includes the start time in day 
of year, hour/minutes, the longitude, latitude, 
and altitude. 


I. Time and position in which the flux fell back below 
10^cm~^sec~^ . This includes end time in day of 
year, hour/minutes , the longitude, latitude, and 
altitude. 


Please note that the output identifies times where the satellite 
encountered flux > 10 ^cm ^sec as well as times where VA passage 
occurred but with flux < 10 ^cm ^sec Time gaps may be observed 
where there were no VA encounters. 
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REPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


XI. Sample Output 



PtAK 

TIME 


PASS 

peak flux 

INTEGRAL 

START 

LONG 

LAT 

ALT 

END 

LONG 

LAT 

alt 


JJL 

HO 

OA HM 

/MIN 

NUMBER 





DAY 

HR/MIN 




DAY 

NR/MIN 




11 


12 

11 

20 


0^5327E 

C2 

0.66dlE 

05 











72 


L2 

LL 

l4o 


0.2500t 

Ci 

0.70UE 

06 











72 

3 '♦6 

12 

a 

322 


Q. 82 71l 

C3 

oa9UE 

07 











72 

346 

12 

11 

439 


0* 1366E 

C4 

0. 3043b 

07 

346 

456 

318.0 

-17. T 

^07.0 

346 

504 

347.2 

-29.6 

454.5 

72 

34<j 

12 

11 

036 


0. lo44E 

04 

0.33928 

07 

346 

633 

m.o 

-25.5 

435.6 

346 

642 

347.5 

-33.0 

477.1 

72 

3 'to 

12 

11 

dl4 


0. 1748E 

C4 

0.3930E 

07 

346 

810 

305.9 

^30.9 

459.9 

346 

820 

348.2 

-31.2 

487 . 5 

72 

34o 

12 

a 

932 


0- IdVbB 

04 

0.42O5E 

07 

346 

948 

306.6 

-33.1 

480.2 

346 

959 

350.2 

-23.2 

482.7 

72 

3^6 

12 

11 

113U 


0.19V2E 

C4 

0.4332L 

07 

346 

1125 

302.8 

-30.9 

487.5 

346 

1137 

345.5 

-13.0 

465.6 

72 

340 

12 

u 

1307 


0a341E 

C4 

0-3163E 

07 

346 

1304 

304.6 

-22.5 

462.3 

346 

1313 

333*2 

-5.5 

449,8 

72 

340 

i2 

11 

1443 


0.6623E 

03 

0. 10O4E 

07 











72 

i'tO 

12 

1 1 

1023 


0. 1443E 

C3 

0.13258 

06 











72 

340 

12 

a 

2322 


0« 1651b 

C2 

0. I030E 

05 











72 

347 

12 

12 

36 


0. 1460t 

C3 

0.3723E 

06 











72 

34 7 

12 

12 

225 


0.3746C 

C3 

0. 1365E 

07 











72 

34 7 

12 

12 

402 


0* L116E 

04 

0.2324C 

07 

347 

401 

326.8 

-19.0 

397.7 

347 

405 

341.1 

-25.5 

423.0 

72 

347 

12 

12 

339 


0, 1.48 3E 

E4 

0. 3244E 

D7 

347 

536 

312.8 

-2 3.6 

414.0 

347 

544 

344.4 

-32.3 

458.9 

72 

34 7 

12 

12 

71 7 


0. 1633C 

04 

0.3O46E 

07 

347 

713 

301.2 

-29.8 

441.3 

347 

723 

349.5 

-32.1 

4B1.4 

72 

347 

12 

12 

834 


0. L T91C 

04 

0.4094b 

U7 

347 

851 

307.7 

-33.1 

467.9 

347 

902 

352.3 

-25.1 

486.4 

72 

34 7 

12 

12 

1033 


0.2001C 

C4 

0.44l0t 

07 

34 7 

1026 

304.2 

-31.8 

481.6 

347 

1040 

340* 1 

-15.4 

477.0 

72 

347 

12 

12 

12 lU 


0- 1 7d9E 

C4 

0.38^>0fc 

07 

347 

1206 

303. 1 

-25.9 

486.6 

347 

1217 

339.0 

-6.0 

461,3 

72 

347 

12 

12 

1346 


0. d<363C 

Ci 

0.1552fc 

07 











72 

3<t7 

12 

12 

1326 


0-3161E 

C3 

0. 3671E 

06 











72 

34B 

12 

13 

2 


0. 85Jd£ 

C2 

0.16618 

06 











72 

J4 d 

12 

13 

130 


0. J571E 

C3 

0.92318 

06 











72 

34d 

12 

13 

305 


0.3904E 

03 

oasoac 

07 











72 

J4d 

12 

13 

443 


0- 12cJ9E 

C4 

Q.2640F 

07 

346 

440 

31B.2 

-23.2 

39 7.7 

3A8 

446 

341.5 

-30.7 

434. 7 

72 

34d 

12 

13 

020 


0a497t 

04 

0. 3313E 

07 

348 

616 

308.7 

-26.4 

420.2 

3<»8 

625 

346.6 

-33.0 

466.6 

72 

>4d 

12 

13 

737 


0.1O63E 

C4 

0.3813E 

07 

348 

754 

308.6 

-32.8 

451.3 

348 

804 

350.5 

-28.0 

4S3.5 

72 

346 

12 

13 

933 


0« L91d£ 

04 

0.42 752 

07 

348 

931 

305.6 

-32.5 

470.5 

348 

943 

550.7 

-17.5 

483.2 

72 

34d 

12 

13 

1113 


0. 193d£ 

04 

0.42406 

07 

348 

1109 

305.1 

-27. 5 

493.5 

340 

1120 

341.8 

-8.5 

473,4 


3hB 

12 

13 

U31 


0^ 1224C 

C4 

C. 24096 

07 

346 

1248 

305.0 

-16-6 

482.9 

348 

1254 

323.4 

‘5.0 

468.5 

72 

j4o 

12 

13 

1429 


0.54loe 

C3 

0-/3718 

06 











72 

34b 

12 

13 

1003 


O.SlOdE 

.02 

0.20748 

05 











72 

346 

12 

13 

2303 


0.43i3E 

C2 

0-59d7L 

05 











72 

349 

12 

14 

31 


0,200lE 

03 

0.:>o79£ 

06 











72 

3t9 

12 

14 

206 


0.6(j2vE 

Ci 

C. 15096 

07 











72 

.>49 

12 

14 

340 


0* lUVlE 

04 

0.«;402C 

07 

349 

344 

323.8 

-22.7 

301.6 

349 

348 

339.9 

-28.4 

406.9 

72 

34 V 


14 

323 


0.1352E 

C4 

0.2947fc 

07 

349 

520 

314.2 

-28.1 

404.2 

349 

527 

343.5 

“33.0 

445.0 

72 

349 

12 

14 

ooO 


0. L5loE 

C4 

0. J47JE 

07 

349 

657 

310-1 

-32.3 

431.8 

349 

706 

346.4 

-30.3 

472.1 

72 

349 

12 

14 

o 3 d 


0*1776F 

C4 

0.40196 

07 

349 

B34 

307.0 

-32.9 

455.2 

349 

845 

349.9 

-21.4 

483.7 

72 

j49 

12 

14 

iOIO 


J» iSidc 

C4 

0.4iJ3E 

07 

349 

1011 

303.1 

-29.9 

472.3 

349 

1023 

344.7 

-10.9 

480. 6 

7 2 

349 

12 

14 

1134 


0. 13098 

C4 

0. J 1 30E 

07 

349 

1150 

304.3 

-20.7 

403.6 

349 

1159 

332.3 

-3.3 

472.9 

72 

J49 

12 

a 

Ijii 


0.739LE 

C3 

0.1210E 

07 











72 

3tV 

12 

14 

1309 


0^ I003t 

C3 

0. lu03E 

06 











72 

349 

U 

14 

4li09 


0a264E 

02 

0.7733E 

04 











72 

3 49 

12 

14 

2344 


0« 1 14U£ 

Ci 

0.3U41E 

06 











72 

330 

12 

it) 

ill 


0*4050E 

C3 

O.llCbb 

07 











72 

jbU 

12 

13 

248 


0.90:>LE 

C3 

0. 1^708 

07 











72 

3>0 

12 

13 

420 


0.11698 

C4 

0.23726 

07 

350 

423 

316.0 

-26.5 

382.0 

350 

429 

340.5 

-32.3 

419.0 

72 

3!>0 

12 

13 

603 


0.1379E 

C4 

0- 3074E 

07 

350 

560 

311. 5 

-31. 5 

410.4 

350 

609 

346.0 

-32.0 

453.6 

72 

:>50 

12 

13 

741 


0. 1599E 

C4 

0,30678 

07 

350 

737 

308.3 

-33.1 

4 36.6 

350 

747 

346.9 

-24.8 

475.7 

72 

330 

12 

13 

9 19 


0. 1683E 

C4 

0.42008 

07 

350 

914 

304.9 

-31. 0 

458.2 

350 

926 

347,7 

-13.1 

432.5 

72 

330 


13 

1036 


0 • 1693c 

04 

0-3733E 

07 

350 

1052 

303.3 

-24.1 

475.8 

350 

1103 

338.4 

-3.6 

478.0 
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I. Introduction 


The IBM— 360 PLOT and CHAR routines enable the programmer who 
uses graphic output to take advantage of the speed and 
facilities of the 360 for calculations and use the IBM-1620/1627 
for plotting only. PLOT and CHAR on the IBM-360 produces the 
plotter commands (i.e . , number strings) and puts them into a 
7-track tape which can later be read and plotted by the 
IBM-1620/1627. 

An * appears in the right-hand margin of this paper by those 
sections and remarks which are unique to the 360 PLOT and CHAR 
routines. The programmer who is already familiar with the 1620 
PLOT and CHAR routines need only read those sections. 
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II. PLOT Program Descriptions 


The following definitions apply to the parameters used in a 
call to PLOT. All X and Y values are to be expressed in inches. 
The subroutine processes floating point values in the short 
format . 


A. IC = control integer which must have one of the following 
values: 1, 101, 201, 0, 9, 10, 19, 20, 29, 30, 39, 

40, 49, 50, 59, 90, 99, 7, 100. See "Use of Control 
Integer" under the specific programming procedure 
in question. 


B. XMIN equal to or less than minimum X value to be plotted. 


C. XMAX equal to or greater than maximum X value to be 
plotted. 


D. XL = the required physical length of the plot in the 
X direction. 


E. XD = X increment to be indicated on plot outline = 

(XMAX - XMIN) /INC, where INC equals the line of 
increments desired. 


F. YMIN equal to or less than minimum Y value to be plotted. 


G. YMAX equal to or greater than maximum Y value to be 
plotted. 


H. YL = the required physical length of the plot in Y 
direction. 


I. YD = Y increment to be indicated on plot outline = 

(YMAX - YMIN) /INC, where INC equals the number of 
increments desired. 
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Choice of variable names for the above information is left to 
the discretion of the programmer, except for the restrictions 
that the control integer must be a fixed point variable or 
constant and the rest be floating point variables (with or with- 
out subscripts), constants, or expressions. Array names must 
not be used. 



In brief, PLOT has three sections: 

1. Framing and scaling 

2. Point-to-point plotting 

3. Reinitialization 

a. Framing and Scaling Section 

In this section, scaling constants are calculated and a 
plot outline or grid is drawn governed by the control 
integer IC. These scaling constants are then used to 
scale all X and Y values in the point-to-point plot 
section. Therefore, it is imperative that a call to 
PLOT with IC = 1, 101, 201 be made before any actual 
plotting is done. 

After the frame is drawn the pen is placed in the up 
status . 

Use of the Control Integer (IC) 

One of the following three control integers must be used 
in this section; 

IC = 1 

IC = 101 

IC = 201 

When IC = 1 is used, scale constants are calculated and 
a plotting area outline is drawn. When IC = 101 is used 
scale constants are calculated and a grid over the 
plotting area is drawn. When IC = 201 is used, scale 
constants are calculated, but neither a plotting area 
outline nor grid is drawn. (For efficient programming, 
set XD equal to XMAX - XMIN, and YD equal to YMAX - YMIN 
when IC = 201 is used.) The latter control integer is 
used when a reference frame is already available or when 
one is not required. 

b. Point- to-Boint Section 


This section of PLOT scales a given point (X,Y) to 
correspond to the frame established. 

Use of Control Integer (IC) 

One of the following fourteen control integers must be 
used in this section; 
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NOTE: The pen always moves to the point to be plotted in the 

status in which it was left (up or down) from the previous call. 


IC = 


IC - 

0 

IC = 

10 

IC = 

30 

IC = 

50 

IC = 

9 

IC = 

19 

IC = 

39 

IC = 

59 

IC = 

90 

IC = 

20 

IC = 

40 




00. When IC = 0 is used, the point (X,Y) is scaled, the 

pen moves to the resultant coordinate (X plot, 

Y plot) , and a plus sign (+) is drawn through the 
point. The pen remains down after the plus sign 
is drawn 


IC = 9. 


IC = 90. 


IC =* 99. 
IC = 10. 
IC = 19. 
IC = 20. 
IC = 29. 
IC = 30. 
IC = 39. 
IC = 40. 
IC = 49. 


When IC = 9 is used, the point (X,Y) is scaled, the 
pen moves to the resultant coordinate (X plot, 

Y plot) , and a plus sign (+) is drawn through the 
point. 

When IC = 90 is used, the point (X,Y) is scaled, and 
the pen moves to the resultant coordinate (X plot, 

Y plot) . Then pen is commanded down when the point 


to be plotted is reached. 

When IC = 99 is used, the 
other action takes place. 

The same as IC = 0 except 
drawn through the point. 

The same as IC = 9 except 
drawn through the point. 

The same as IC = 0 except 
drawn through the point. 

The same as IC = 9 except 
drawn through the point. 

The same as IC = 0 except 
drawn through the point. 

The same as IC = 9 except 
drawn through the point. 

The same as IC = 0 except 
drawn through the point. 

The same as IC = 9 except 
drawn through the point. 


pen is commanded up. No 
that a square { o ) is 
that a square ( a ) is 
that an octagon ( O ) is 
that an octagon (O) is 
that a diamond ( ^ ) is 
that a diamond ( ^ ) is 
that a triangle ( a. ) is 
that a triangle (^ ) is 
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IC = 50. The same as IC = 0 except that a flag (^) is 

drawn through the point. 

IC = 59. The same as IC *= 9 except that a flag C?") is 

drawn through the point. 


NOTE: If the pen up or down status is altered manually or by 

some routine other than PLOT Cfor example, the CHAR routine) 

IC = 99 should be executed prior to the resumption of point-to- 
point plotting. The reason for this lies in the fact that PLOT 
is designed to keep track of the pen up or down status so that 
the pen does not have to be commanded to assume its present 
status. (One hundred ms are required for each pen up or down 
command.) By executing an IC = 99 call, as just described, pen 
up status is established physically and within the program. 


c. Reinitialization Section 


IC = 7 

IC = 100 

After all points have been plotted within a frame, IC = 7 
may be called if a new frame is to be drawn. Calling IC = 7 
causes the pen to move in the up status to a point 2 . 5 inches 
beyond the frame . 

After all plotting is complete for the entire program, 

IC = 100 should be called so that the PLOT program can put 
the final record onto tape. If IC = 100 is not called, the 
last part of the plot will be lost. 



III. PLOT Prograiraning Procedure 


Prior to calling PLOT, the programmer must determine and place 
in storage the XMIN, XMAX, XL, SD, YMIN, YMAX, YL, YD, and IC 
information as previously defined. 

The actual names of the variables are unimportant as long as IC 
is a fixed-point variable or constant, and the rest of the 
variables are floating-point variables, constants, or expression 
(except that array names must not be used) . 

Because of the make-up of the plot routine, the first time it is 
entered the following statement must be used; 

CALL PLOT (IC, XMIN, XMAX, XL, XD, YMIN, YMAX, YL, YD) 

where IC must equal 1, 101, or 201. 

After the initial statement has been executed, the subroutine 
can be entered at any time by one of the following two statements: 

CALL PLOT (IC,X,Y) 

CALL PLOT (IC) 

where IC in the first statement must be 0, 9, 10, 19, 20, 

29, 30, 39, 40, 49, 50, 59, or 90 and X,Y are the coordinates 
of the point to be plotted. IC in the second statement must 
be 7, 99, or 100. 
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IV. Annotation (CHAR) Subroutine 


CHAR allows a FORTRAN program to plot letters , numbers , and all 
FORTRAN special characters from information supplied by FORMAT 
statements. 

a. Program Description 

The position of the pen, at the time CHAR is called, is at 
the lower left-hand corner of the character to be drawn. 
Because the information to be plotted is obtained from 
FORMAT statements furnished by the programmer, actual 
variable values can be plotted at object time. 

Each character that is plotted is represented in the sub- 
routine by a string of digits. These digits, when trans- 
mitted to the plotter, cause the proper pen and paper 
motion required to draw the desired character. When all 
of the specified characters are drawn, the pen is returned 
to the starting position with the pen in the up status. 

A maximum of 100 characters (including blanks) can be drawn 
on any one call to CHAR. 
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V. CHAR Programming Procedures 


The CHAR subroutine is accessed by the following three statements; 
n FORMAT (Sj^,S 3 ,S 3 , . ..Sjj,100X) 

WRITE ( 4 , n) VAR^ , VAR 2 , VAR 3 , . . . VAR^^ 

CALL CHAR (SZE,1HV) 

The arguments in the call statement are defined as follows; 

SZE = a floating point variable or constant equal in value to 
the desired size of the characters to be plotted, ex- 
pressed in tenths of inches, 

IHV = an integer variable or constant, if IHV = 0, characters 
are drawn parallel to the X-axis. Otherwise, characters 
are drawn parallel to Y-axis. 

The FORMAT statement supplies the information as to what is to 
be drawn, and under what FORMAT specifications. The items in the 
FORMAT statement are defined as follows ; 

S = a FORMAT specification. FORMAT specifications may not be 
separated by a slash (/) . 

n = a statement number, corresponding to n in the WRITE statement. 

The lOOX is necessary for regulating record length on disk. 

The WRITE Statement places the characters which are to be plotted 
onto disk so that CHAR can reference them in order to translate 
the characters into plotter commands. 

For information on how to use the Greek alphabet and other special 
characters, see appendix B. 
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VI. The Care and Feeding of the Plotter Programs 


A. Operating Instructions 

The plotter routines are part of the system library, and 
the job control statements that are needed in order to use 
PLOT or CHAR are a cataloged procedure . This procedure is 
specified on the EXEC card in the following manner; 

//STEPl EXEC PLOTECLG — To compile and execute a 

FORTRAN program which uses 
PLOT and/or CHAR. 

//STEPl EXEC PLOTELG — To execute a previously 

compiled FORTRAN program 
which uses the PLOT and/or 
CHAR routine. 

NOTE: PLOTECLG has the same functions as FORTECLG; and PLOTELG 

has the same function as FORTELG. There is no equivalent to 
FORTECDK or FORTEC. To compile a program using PLOT and CHAR, 
FORTEC can be used. 

B . Output to the Plotter Tape 

When the program begins outputting onto the plotter tape, 
the message "PLOTTING BEGUN" is written on the printer. 

When plotting is completed (i.e., after a call to PLOT (100) 
the message "PLOTTING COMPLETED" is printed. 

The programmer may find, when looking over his printed 
output, that he does not want his results plotted out on the 
1627 (for example, if he realizes that his plotting would be 
incorrect). In this case, ask the operator in the IBM 360 
room for a CANCEL PLOT slip which is filled out and 
returned to him. Note that if PLOTTING BEGUN has not been 
printed then there is no plotter output and nothing could be 
canceled. However, if PLOTTING BEGUN has been printed, 
there will be plotter output even if PLOTTING COMPLETED has 
not been printed. 

C. Tape Procedures 

The plotting output is put onto a 7-track tape which is later 
plotted out on the IBM 1627 using the IBM 1620. The 
Computation Center has a limited number of 7-track tapes 
which can be borrowed for this purpose (see Howard Stiles, 
Room M123) . On the 360 Run Request Form check Plotter Tape 
under output and put the number of your 7- track tape in the 
Tapes Required section. 



It is suggested that those, other than students, who use 
these routines frequently buy their own 7-track tape. 
Also, they should sign up for their own 1620 time to plot 
the tape. A copy of the 1620 program for writing this 
tape onto the plotter will be left in the right-most 
hopper on top of the 1622 card reader punch. Operating 
instructions for this program are under TAPE-TO-PLOTTER 
in the 1620 Systems Operating Instructions. 



o o o 
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APPENDIX A 

CONCENTRIC CIRCLE ROUTINE 


DIMENSION ARRAYdU 
DO 109 N=l, I I 
REAOdJOS) ARRAY(N) 

105 F0RMATd2) 

109 CONTINUE 

THETA=0.0 

!C=I 

ICC=90 

ICCC*=7 

T=6I. 

XX*-&.5 

S=30. 

R=5.0 

M=T 

LL=I 

2 CALL PL0T(IC,-5.0,5.0, 5. 0,1.0, -5. 0,5.0, 5.0,1. 0) 
00 106 N=l,l I 

CALL PLOTdCC,XX-5.4) 

WRITE(4, lOO)ARRAY(N) 

CALL CHAR(O.I,0) 

100 FORMAT(I2,IOOX) 

CALL PLOT (99) 

106 XX=XX+I. 

CALL PLOT(ICC,5.2,-5.0) 

WRITE(4,I0I) 

CALL CHAR( 0.1,0) 

101 F0RMAT(6HX“AXIS, lOOX) 

YY=5.0 

3 CALL PL0TdCC,-5.7,YY) 

IY=YY 

WRITE(4,I03)IY 
CALL CHAR(0.l,0) 

103 F0RMAT(I3,I00X) 

YY*YY+I .0 
IF(YY-6.0)3,4,4 

4 CALL PL0TdCC,-7.2,0.0) 
liR!TE(4, 104) 

CALL CHAR(0.l,0) 

104 FORMAT(6HY-AXIS,100X) 

11 ICC = 10 
GO TO 24 

12 ICC = 19 
GO TO 24 

13 ICC = 20 
GO TO 24 

14 ICC = 29 
GO TO 24 

15 ICC = 30 
GO TO 24 
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16 ICC = 39 
GO TO 24 

17 ICC = 40 
GO TO 24 

18 ICC * 49 
GO TO 24 

19 ICC = 50 
GO TO 24 

20 ICC = 59 
GO TO. 24 

21 ICC = 0 
GO TO 24 

22 ICC = 9 
GO TO 24 

23 ICC = 90 
2400 25 K=I,M 

X=5.0 

X*R*COS( THETA) 

Y=R*S IN (THETA) 
THETA=THETA+3 .141 59265/S 
CALL PLOT(!CC,X,Y) 

25 CONTINUE 

CALL PLOT (99) 


99 


200 


201 


202 


M»T 

S=S=2. 

T=2.»S+). 

R»R-.38 

LL=LL+I 

“ll°pL0T(99) 

CALL PLOT(ICC,-IO.,8.4) 

WRITE<4,200) 

CALL CHAR(0.4, 

FOWAT ( 24H/3TUV‘.'.'XYZJ KU iNOPORSTUVV/X, I COX ) 
CALL PL0T(99) 

CALL PLOT(ICC,-IO.,7.2) 

WRITE(4.20() 

CALL CHAR(0,4,0) 

FORMAT ( 27HA6CDEFGH I J KLMNOPQRSTUVWXYZ I OOX ) 
CALL PL0T(99) 

CALL PLOT( ICC, -10,, 6.0) 

WRITE(4,202) 

CALL CHAR(0.4,0) 

ST'I? ' 23456789 , R( ( . , V . > »=Z . $*<, I OOX ) 
CALL PLOT(IOO) 

CALL EXIT 
END 


-5 

-2 

1 

2 

I 

5 




-14 
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APPENDIX B 


Plotting Special Characters 


It is possible in CHAR to use the Greek Alphabet and the special 
symbols; <, >, %, ], {, This is accomplished by 

multipunching the FORMAT statement characters in accordance with 
the following symbol table. Some confusion may arise when the 
programmer looks at how this FORMAT statement is compiled as 
these special multipunched characters may cause totally unrelated 
characters to print out during compilation. 

Example 1: If one wishes to plot a = g + y 

the FORMAT statement would be punched 

12 12 12 

FORMAT C5H ^ = ° + ° ) or 

12 3 

• 1 2 12 1 2 I 

FORMAT (. ° = ° + °) 

12 3 

NOTE : The ' mark in the second 

example is a 5/8 punch 

Example 2; Plot 6 = 50®, A < B, 4 . = [ (RADIUS) *ti] 

1 2 

512 11 12 

FORMAT ^ = 50 A 

4 94 

8 
2 

In the following table a / next to a character indicates that 
this is the standard keypunch code for the 026 keypunches so 
that these characters need not be multipunched. In the case 
where there is more than one multipunch defined for a 
character, either multipunch can be used. 


11 11 12115 

B 0 = 0 (RADIUS)* 0 ®) 

4 8 7 9 
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IBM IBM 


CHARACTER 

0‘- 

2 

6 

2 

9 

PLtMTM ^ 

.CHARACTER 

(0 

2 

6 

0 

2 

9 

PUNCH 

a 



12-0-1 


A 

H 

/ 

12-1 

e 



12-0-2 


B 

H 

/ 

12-2 

Y 



12-0-3 


C 

H 

/ 

12-3 

6 



12-0-4 


D 

H 

/ 

12-4 

t 



12-0-5 


E 

D 

/ 

12-5 

c 



12-0-6 


F 

/ 

/ 

12-6 

n 



12-0-7 


G 

/ 

/ 

12-7 

e 



12-0-8 


H 

/ 

/ 

12-8 

1 



12-0-9 


1 

/ 

/ 

12-9 

K 



12-1 l-l 


J 

/ 

/ 

ll-l 

X 



12-1 1-2 


K 

/ 

/ 

11-2 

M 



12-1 1-3 


L 

/ 

/ 

11-3 

V 



12-1 1-4 


M 

/ 

/ 

1 1-4 

5 



12-1 1-5 


N 

/ 

/ 

1 1-5 

0 



12-1 1-6 


0 

/ 

/ 

1 1-6 

1? 



12-1 1-7 


P 

/ 

/ 

11-7 

P 



12-1 1-8 


Q 

/ 

/ 

II -8 

a 



12-1 1-9 


R 

/ 

/ 

1 1-9 

T 



11-0-2 


S 

/ 

/ 

0-2 

0 



11-0-3 


T 

✓ 

/ 

0-3 

0 



M-0-4 


U 

/ 

/ 

0-4 

X 



1 1 -0-5 


V 

/ 

/ 

0-5 




II -0-6 


W 

/ 

/ 

0-6 

(i) 



1 1 -0-7 


X 

/ 

/ 

0-7 






Y 

/ 

/ 

0-8 






Z 

/ 

/ 

0-9 

> 


/ 

0-8-6 




/ 


< 



II -8-2 






C 



12-1 t-0-9-8-4 


0 

/ 

/ 

0 

3 



12-1 I-0-9-8-5 


1 

/ 

/ 

1 

?< 



12-1 I-0-9-8-3 


2 

/ 

/ 

2 

€ 



12-11-0-9-8-6 


3 

/ 

/ 

3 

% 



8-7 

1 

t 

4 

/ 

/ 

4 

1 

/ 

/ 

0-1 

\ 

1 

5 

/ 

/ 

5 

+ 

/ 


12 


6 1 

/ 

/ 

6 

+ 


/ 

12-8-6 

! 

7 ! 

/ 

/ 

7 

( 

/ 


0-8-4 


8 

/ 

/ 

8 

( 


/ 

12-8-5 


9 

/ 

/ 

9 

S 

/ 


8-3 






= 


/ 

8-6 


0 


1 


) 

/ 


12-8-4 


(Degree) 


1 

12-1V0--9-8-2 

) 


/ 

11-8-5 


% 

y' 

/i 

♦2-8-3 






$ 

/ 

/' 

M-8-3 







/ 

/ 

1 t-8-4 






- 

/ 

/ 

tt 






t 

/I 

/ 

8-3-0 








/ 
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Common 


Messages 


1HC2121 


INVALID IC = 


Blank plotted 
on output where 
character was 
expected. 


Error Messages 


Description 


Check that the FORMAT state- 
ments for CHAR have lOOX in 
them . 


In the call to PLOT, IC was 
set equal to an invalid code 
(see pages 2-3) or was not a 
fixed-point number. 


The programmer attempted to 
plot (using CHAR) an illegal 
character. See Appendix B. 


Illegal arguments passed in 
PLOT or CHAR. (For example, 
if X or Y had been fixed point 
variables . ) 


1HC2101 
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ADDITIONAL IC-CODES C91 and 88) FOR THE PLOT SUBROUTINE 


1. An IC- code of 91 is practically identical to IC = 90, 
except that with a 91 code, the pen remains in the 'UP' 
position. 

2. A size parameter specification has been added to the PLOT 
subroutine. To make use of this option, the programmer 
must employ the following call statement; 

CALL PLOT (88,X,Y,M,N) 

This option should not be used for the following codes; 

100, 99, 91, 90, 7, 1, 101, and 201 

The above numbers should be used as first parameters in 
CALL PLOT. 

An IC-code of 88 enables the programmer to state the size of the 
symbols to be drawn. X and Y are floating point variables for 
the coordinates X and Y; M indicates the symbol code as shown in 
the old PLOT instructions (see blue stencil) e.g. , — 29 for the 
octagon, leaving the pen up after the sumbol is drawn on the 
plotter, — 40 for a triangle leaving the pen down, etc. 

N may be any whole number ranging from 1 through 79 to give the ‘ 
sizes of the desired symbol. The maximum size will be little 
over 1 1/2 inches (79 x .02). For instance, the statement CALL 
PLOT (88,X,Y,19,50) will cause a square of 1 inch high to be 
drawn in XY. XY is in the center of every symbol except for the 
octagon, in which case XY is off center; 


A value greater than 79 for N will given an error message. 

Below is a list of variables for the corresponding sizes (given 
at intervals of 5). 



min* 

max. 


N SIZE Cof symbol in inches) 


0 

.0 


5 

.1 


10 

.2 


15 

.3 


20 

.4 


25 

.5 Cl/2 in.) 

30 

.6 


35 

.7 


50 

1.0 Cl 

in. ) 

55 

1.1 


60 

1.2 


65 

1.3 


70 

1.4 


75 

1.5 (1 

1/2 in 

1 

.02 


79 

1.38 
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APPENDIX D 


Storage Requirements 


The PLOT and CHAR subroutine package is composed of the following 
routines : 


Name 

Length 

Use In 

PLOT 

ABO 

PLOT 

CHAR 

2C8 

CHAR 

CHAR 

884 

CHAR 

0PT 

614 

PL0T and CHAR 

BAD 

IDO 

PL0T 

LAST 

218 

PL0T 

CT0 

32 

PL0T and CHAR 


Total Length = 205A^g = 8282^^^ 


Minor changes may be added to these programs, thus altering 
their length slightly. 
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I. Introduction 


Five 7-track magnetic tapes generated at BBRC and containing 
the calibration data were merged and converted into a 9- track 
360-compatible tape. The data set on this tape was compared 
with the log book records and the erroneous records were 
corrected. 

Since the gain of the system changed by about 7% during the 
calibration period, gamma ray lines 1.460 MeV (.K***^) and 
2.615 MeV (Th^^®) observed in the background spectra were used 
to determine gain as a function of time over the 5-day period. 
Background data averaged over ten-minute intervals distributed 
throughout the calibration period was used to determine and 
C. The value for n^ , averaged over the entire calibration 
period, was then used to determine C for individual graphs; 
linear interpolation was used to find C for intermediate times. 

After determining C for each data set, the spectra were then 
smoothed and the gain corrected to a standard C ( = 0.444 x 10”**) 
in the manner described by P. Higbie, D. Forrest, I. Gleske, 

E. Chupp, Experimental Gamma Ray Response Function for the 
OSO-7 Spacecraft, Nucl. Instr. Meth. 1£8 (1973), 167-176. 

Data sets with the same elevation (6) and azimuth (<j)) angles 
were added together and average spectra for each set of 6 and (|> 
determined; Na^** spectra were treated differently from the 
other three sources. In the case of Na^** spectra, room back- 
ground was first subtracted from the source spectra. This was 
done to remove background contribution due to natural radio- 
activity (mainly and Th^^®) . 

The room background-corrected spectra were then corrected for 
the activity difference between the two Na^** sources and decay 
in the counting rate due to short half-life (15 hours) of the 
Na^® source. [Two series of runs were made separately with 
the two sources listed in Higbie et al. (1973).] 

The runs with the shadow cone 'in* were then subtracted from 
the corresponding spectra with the shadow cone 'out'. This 
provided a rough correction for the effect of scattering and 
room background correction for Sn^^®, Cs^®^, and Zn®^ sources. 

Final spectra for the different values of 6 and are on tape 
CALTP . 
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III. OSOHIOO 


Program Language 
Programmer 
Installation 
Computer 

Subprograms Called 


Fortran IV G-Level 
S . Croteau 

University of New Hampshire 

IBM-360-H50 

FGET, SHIFT, FPUT 


This program reads the calibration data tapes generated 
at BBRC using FGET with data converter off, calls SHIFT to 
reorganize the data bits so that two bytes of data are derived 
from every three bytes read, and writes the new records onto 
a 9- track tape using FPUT. 



IV. OSOHlOl 


Program Language 
Programmer 
Installation 
Computer 

Subprograms Called 


Fortran IV G-Level 
J. Kantauskis 

University of New Hampshire 

IBM-360-H50 

FGET 


This program reads the 9-track 360-compatible calibration 
tape called RSDATA. From each tape record a background card 
and a solar card is punched. OSOHlOl right justifies THETA 
and PHI and converts THETA, PHI, and TIME from the Varian 
Data 620/i internal octal code to character code. OSOHlOl 
also converts the source field to a number code. This is 
done by checking column 21 of the tape record for an S(Sn^^^ 
C(Cs^2^), Z(Zn^^), N(Na^^), B (background in Varian octal 
code) and converting it to a 1, 2, 3, 4, or 5, respectively. 
The program also searches the cone field of the tape and 
converts the C (cone) or N (no cone) from octal format to 
character format. 
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V. OSOH102 


Program Language 
Programmer 
Installation 
Computer 

Subprograms Called 


Fortran IV, G- Level 
J. Kantauskis 

University of New Hampahire 

IBM-360-H50 

FGET, FPUT 


OSOH102 reads the 9- track 360-compatible calibration data tape 
(RSDATA) and the corrected header cards from OSOHIOI. For each 
tape record read two header cards (background and solar) are 
read. Each header card is tested for a C in the cone field. If 
there is a C in the cone field, a new cone field is given a value 
of '1' otherwise the new cone field is given a value of '2'. 
Characters 42 and 426 of the tape are the status fields. These 
two fields are converted fron> octal to binary. The background 
header (the first of the two- headers read) and the 11th and 12th 
binary positions of the status plus characters 41-424 of RSDATA 
are used to create a background record on the new tape. The 
same is done to create each solar record except the solar 
header and characters 425-808 of RSDATA are used. 
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VI. OSOH103 


Program Language 
Programmer 
Installation 
Computer 

Subprograms Called 


Fortran IV, G-Level 
J. Kantauskis 

University of New Hampshire 

IBM-360-H50 

MATCHl, MATCH2 


Before OSOH103 is executed, control cards are inserted manually 
into the header deck (from OSOHlOl) at the desired locations. 
The three control cards and their meanings are; 


1) '7' in column 1 


2) '8' in column 1 


Called ACODE in program. ACODE means add 
the corresponding data fields of the tape 
which match the following headers , sepa- 
rating background records from solar 
records . 

Called SCODE in program. SCODE means add 
the corresponding data fields of the 
tape records which match the following 
headers accumulating background and solar 
data separately. 


3) '9* in column 1 : Called ECODE in program. When ECODE is 

read, it means execute. There are two 
cases : 


a) ECODE follows directly behind the ACODE 
group of headers. Here ECODE means 
to graph the sum of the solar and sum 
of the background records which were 
accumulated beforehand. 
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b) ECODE follows directly behind the 
SCODE group of headers. Here ECODE 
means to graph the sum of the back- 
ground and solar records which were 
accumulated after SCODE. Then to 
subtract the sum of the background 
and solar sums taken after SCODE. 
Then to graph this difference. 

The header cards are read and matched with the records on the 
tape generated by OSOH102. 
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VII. OSOH105 


Program Language 
Programmer 
Installation 
Computer 

Subprograms Called 


Fortran IV, G-Level 
J . Kantauskis 

University of New Hampshire 

IBM-360-H50 

None 


This program reads the tape generated by OSOH103 and calculates 
Uq and C. The program then punches the 122 values of C along 
with the card number. 
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VIII. OSOH105A 


Program Language 
Programmer 
Installation 
Computer 

Subprograms Called 


Fortran IV, G-Level 
J. Kantauskis 

University of New Hampshire 

IBM-360-H50 

None 


This program combines two decks of cards to form one deck. It 
reads one deck containing card number, hours, minutes, and day, 
and another deck containing card number and c (output of OSOH105) . 
It then punches cards containing card number, c, hours, minutes, 
and day. 
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IX. OSOH106 


Program Language 
Programmer 
Installation 
Computer 

Subprograms Called 


Fortran IV, G-Level 
J. Kantauskis 

University of New Hampshire 

IBM-360-H50 

None 


This program reads the 122-card table created by OSOH105A. Once 
the table has been read in, header cards, which fall within the 
time range of the table, are read. For each header card the 
appropriate tabular entries are determined based on 'day' and 
'time'. Then 'c' is determined for the header card by interpo- 
lating between 'c' and 'time* of the table and 'time' of the 
header card. 


T-T, 

C = Cj + (C^-Ci) 

2 '■I 


Finally the new header cards are punched which will now contain 
the new values of 'c'. 


The program OSOH106A is a version of OSOH106 with a change in 
the format statement of the input card and output card as shown 
in the comment cards in program OSOH106. 
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X. OSOH108 


Program Language : Fortran IV, G-Level 

Programmer : J. Kantauskis 

Installation ; University of New Hampshire 

Computer : IBM-360-H50 

Subprograms Called : FGET, SMOTHE, GAIN, FPUT 

This program reads the header cards finds the matching records 
on tape (output of OSOH102) , smooths the spectra, then gain 
shifts the. smoothed spectra and writes the smoothed shifted 
spectra on another tape. The program also keeps a total of the 
counts in the smoothed shifted spectra. 


Smoothing Subroutine: 


The function used to smooth the spectra is the following; 


Y. = 

1 


(-3Yi_2 + 12Y._2 


17Y. + 
1 


12Y 


i+1 


- 3 ^ 1 + 2 ' 


35 


The proof and explanation of this can be found in VoluiTie 36 
Number 8 of the July 1964 isj'ue of Analytical Chemistry , 

"Smoothing and Dif ferentration of Data by Simplified Least Squares 
Procedures" , by Savitsky and Galay. 

Gain Shifting Subroutine; 

Yj and Yj are calculated as follows: 

Y 1 = / C ( N j + N p y ^ / C g > - Where C is read from 

the header cards, the 

_ rest is given in the 

Y^ = / C(N 2 + Nq) VCg - program. 
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Mj is the next integer higher than Yj 
Mj is the next integer lower than Yj 


Now the shifted channels are found as follows; 

X. = /"c (i + M„)^/C - N. where i is the loop from M, to M,. 

X S ^ ® ^ 12 


The Y . values corresponding to the X . values are found through 
interpolation. The three interpolation methods are used, Newton's 
Forward, Newton's Backward, and Stirlings Central Difference. 

Once the values of Y. have been found, the shifted spectrum M(i) 
is calculated from i^to ' 


(M + 


M. = 
1 


M^) 


(X. + 


No) 


(M 2 - + 1) 

X Y(X^) 


where M goes from to M2. 
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XI. OSOH109 


Program Language 
Programmers 
Installation 
Computer 

Subprograms Called 


Fortran IV, G- Level 

J. Kantauskis, P. Higbie 

University of New Hampshire 

IBM-360-H50 

None 


The tape that was generated by OSOH10 8 is read onto disk, and 
remains on disk until the conclusion of this series of production 
runs. The major function of OSOH109 is to subtract the back- 
ground spectrum (cone in) from the source spectrum for sources 
Sn, Zn, and Cs. The new records are written onto a new disk 
file. 
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XII. OSOHllO 


Program Language 
Programmers 
Installation 
Computer 

Subprograms Called 


Fortran IV, G-Level 

J. Kantauskis, P. Higbie 

University of New Hampshire 

IBM-360-H50 

None 


This program reads both data sets on disk and continues the work 
of OSOH109 by writing more records on the new data set. Its 
major fumction is to subtract room backgroiand fropi the source 
spectrxam for Na^**. 
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XIII. 0S0H118 


Program Language 
Programmers 
Installation 
Computer 

Subprograms Called 


Fortran IV, G- Level 

J. Kantauskls, P. Higbie 

University of New Hampshire 

IBM-360-K50 

None 


This program reads the new data set on disk, subtracts the 'cone 
in' spectrum from the source spectrtim for Na^**, corrects for 
decay, and then writes the new record onto the same data set 
on disk . 
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XIV. OSOH120 

Program Language : Fortran IV# G- Level 

Progammers 5 J • Kantauskis / P . Hxgble 

Installation ; University of New Hampshire 

Computer ; IBM-360-H50 

Subprograms Called : None 

This program reads the file on disk and prints out the desired 
spectra. 
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XV.- Subroutine FGET (IDSN,IRSLT,IOVEC) 


Program Language 
Date Written 
Programmer 
Installation 

Computer 
Dummy Arguments 


IBM 0/S 360 Assembler Language 
February 4, 1971 
A. Buck 

University of New Hampshire 
Space Science Center 

IBM-360-H50 

1) IDSN: a, full word input integer con- 
taining the data set number to which 
the call is directed. (IDSN must be 

1, 2 , or 3) . 

2) IRSLT: a full word output integer 
in which subroutine FGET may place an 
activity-result code as follows... 

a) IRSLT = -1 if the requested 
activity was invalid. This code 
is returned if either of the fol- 
lowing occur : 

i. IDSN contains a number 
less than 1 or greater than 

3. 

ii. Data set has been pre- 
viously closed. 

b) IRSLT = 0 if data is read and 
no I/O error is detected. 

c) IRSLT = 1 if an I/O error occurred 
on the block containing the data 
placed in lOVEC. The calling pro- 
gram has the responsibility for 
accepting or rejecting the data. 

In addition, the calling program 
is responsible for proper reaction 
to the remaining records in the 
block for which IRSLT will be 0. 
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Subprograms 

Description 


d) IRSLT = 2 if end-of-file was 
detected. The contents of lOVEC 
are not changed. The data set 
is closed and can not be used again 
by subroutine FGET with the same 
value of IDSN. 

3) lOVEC: an output vector in which 
FGET can place the record. The actual 
variable used for lOVEC may be integer, 
real, logical, or complex. The first 
leftmost byte of the data record is 
placed in the high-order byte of lOVEC 
when reading occurs. The number of 
bytes placed in lOVEC is specified by 
the LRECL subparameter of the DD State- 
ment . 

Called None 

; This subroutine is a QSAM input subroutine 
to read logical records into an area de- 
fined by the calling program. This 
routine is specifically designed to 
supply a Fortran calling program with 
logical records from a data set to which 
the DCB subparameter 'RECFM = FB' applies. 
For data sets to which 'RECFM = F' or 
'RECFM = U' applies, subroutine FTREAD 
may be more easily used. "RECFM *= v' is 
specifically prohibited. 

Subroutine FGET can manage as many as 
3 data sets during the same job step. 

The data sets may be open (active) 
simultaneously provided no two data sets 
are on the same magnetic tape. 

DD Statements required... 

If FGET is to be called with IDSN = 1 
(or 2 or 3) , then the user must describe 
the data set by a DD Statement having the 
DD name FGETOl (or FGET02 or FGET03) . 

The DD Statement msut include the DCB 
subparameters 'RECFM', 'LRECL', and 
'BLKSIZE' but must omit 'DSORG' or'MACRF' . 
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XVI.- Subroutine FPUT (IDSN, ICMD, IRSLT, lOVEC) 


Program Language 
Date Written 
Programmer 
Installation 

Computer 
Dummy Arguments 


IBM 0/S 360 Assembler Language 
February 4 , 1971 
A . Buck 

University of New Hampshire 
Space Science Center 

IBM-360-H50 

1) IDSN: a full word integer input 

parameter specifying the data set to 
which activity is directed. The inte- 
ger stored at IDSN must be greater than 
zero but less than 21. 

2) ICMD; a full word input integer vari- 
able containing a request type code which 
specifies the activity to be performed. 

a) ICMD = 1 implies that a logical 
record is to be written. 

b) ICMD = 2 implies the data set 
is to be ended i Once ended, the 
data set is unavailable to the 
®®l^tng program through the same 
data set number. 

3) IRSLT: a full word output integer 
variable in which subroutine FPUT can 
place a return code as follows 

a) IRSLT - -1 implies request was 
illegal for one of the reasons 
below: 

1. IDSN contained a value 
less than 1 or greater than 
20 . 

ii. ICMD contained a value 
less than 1 or greater than 

2 . 


iii. A write request was made 
to a data set that had been 
ended. 
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Subprograms 

Description 


iv. An endfile request was 
made to a data set either 
before: the first write request 
or after the data set had been 
ended . 

b) IRSLT = 0 implies request was 
executed normally. 

C) IRSLT = 1 implies an I/O error 
occurred while writing a block. 

The data set was ended. 

4) lOVEC; an input vector whose high 
order byte is the first byte to be written 
(when ICMD =1) in a logical record. 

The number of bytes written is specified 
by the LRECL subparameter on the DD state- 
tcient describing the data set. 


Called ; None 

: Subroutine FRUT is a QSAM output sub- 

routine to write logical records from 
an area defined by the calling program. 
This routine is specifically designed 
to allow a Fortran program to create 
without format control an extensive 
data set to which the DCB subparameter 
•rECFM = PB' applies. For data sets 
to which ’RECFM = F' or RECFM = U 
applies , subroutine FTWRIT may be more 
easily used. 

Subroutine FPUT can manage as many as 
20 data sets in the same job step. As 
many as desired may be active simulta- 
neously. Once the endfile command 
has been issued to a data set , sub- 
routine FPUT will refuse to perform 
any further activity for that particular 
data set. The large number of data 
sets allows writing as many as 20 files 
to the same magnetic tape volume as a 
possible application. 

1)D Statements required... 

suboutine FPUT is called with IDSN=1 
(or 2^..., or 20) the user must supply 
a DD Statement having the DD name FPUTOl 
(or •FPUT02 , . . . , or FPUT20). The DD State- 
:ment must include the DCB subparameters 
'•RECFM', '-LRECL', and 'BLKSIZE' but must 
omit 'DSORG' and 'MACRF'. 
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XVII. Description of Final Output Tape 


The 

data 

control block for this tape Is as follows; 


DCB = (Rl-'CFM = FB, LRECL = 1680, BLKSIZE 

= 1680) 

The tape contains the final spectra for the different values 
of 0 and. ((). All variables on this tape are 32-bit words. the 
format is as follows: 

Word 

No. 




1 

* 

• 

Source number 

(integer) 

2 

• 

Elevation angle (0) 

• (integer) 

3 

• 

Azimuth angle (<{i) 

(integer) 

4 

• 

First channel (Mj) 

(integer) 

5 

« 

• 

Last channel (M^) 

(integer) 

6 

• 

• 

Sum of counts in the original 
source spectrum 

(floating point) 

7 

m 

Sum of counts in the original 
background spectrum 

(floating point) 

8 

* 

Sum of counts in the smoothed gain- 
shifted source spectrum from to Mj 

(floating point) 

9 

• 

Sum of counts in the smoothed gain- 
shifted background spectrum from 
to Mg 

(floating point) 

10 

• 

• 

Same as 8 but accumulated in a 
different step 

(floating point) 

11 


Same as 9 but accvunulated in a 
different step 

(floating point) 

12-20 

• 

« 

Counters and extra words 

(floating point) 

21-420 : 

Spectrum (400 channels) 

(floating point) 


Nots ! In the Na source ^ Nos. 6—11 appear in the followinQ order* 

6, 8, 10, 7, 9, 11. ^ ’ 
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I. EXPERIMENT DESCRIPTION 

A, Objective ; 

The primary objective of the. proposed experiment is to 
monitor the high energy photon spectrum (0.3 to 9.1 MeV) at 
the OSO altitude (approximately 575 km) and correlate the 
observations with the time when the detector is exposed to 
the sun and with other observations of solar activity. Our 
primary interest is to study the characteristics (intensity 
and time variation) of gamma rays emitted by the sun. If 
nuclear reactions occur in the solar atmosphere, either con- 
tinuously or sporadically, then several nuclear gamma rays 
might be produced in sufficient quantity to be observable at 
the earth . An important feature of this gamma ray experiment 
is the measurement of gamma ray energies with the highest 
resolution possible with the basic detector and the spacecraft 
telemetry system in order to emphasize any line structure in 
the gamma ray flux. As an example, gamma rays at 0,51 MeV, 

2.22 MeV, 4.43 MeV, and 6.15 MeV would indicate production 
of positrons, neutrons, and excited nuclei from various nuclear 
processes. 

The experiment will also provide monitoring of the 
continuous spectrum of photons in the energy range from 0.3 
to 9.1 MeV. Additional information from the experiment will 
provide knowledge of changes in background radiations. These 
are likely due to earth albedo gamma rays, electron bremsstrah- 
lung, and neutron and charged particle interactions in the 
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detector and the spacecraft. This information is important 
for further understanding of solar-terrestrial relations since 
some gamma rays may be produced in the earth's atmosphere by 
other solar radiation. Also, such information is essential 
for determining the direction for detector development for 
solar and celestial gamma ray astronomy. 

The main features of the experiment and detector may be 
summarized as follows: 

(1) Monitor solar gamma ray flux from 0.3 to 9.1 MeV 
with a high resolution gamma ray spectrometer to search for 
nuclear gamma ray lines. 

(2) Monitor the continuum solar gamma ray spectrum 
over the same energy range, and simultaneously monitor the 
7.5 to 120 keV X-ray range. 

(3) Provide for internal calibration of detector auto- 
matically or on external command. 

(4) Data handling mode may be changed on command to 
emphasize high resolution or a broad spectral survey. 

B. Instrument : 

The gamma ray spectrum is measured by means of a high 
resolution Nal (Tl) gamma ray spectrometer surrounded with a 
CsI(Na) active collimator which also acts as a charged parti- 
cle shield. The basic layout of the detector is shown in 
Figure 1. The central gamma ray spectrometer is viewed by a 
single ruggedized photomultiplier. The CsI(Na) shield, which 
consists of a large cup and a front slab, is viewed by five 
photomultipliers (RCA70132B-Heroispherical Photocathode) , three 




'1) integral line crystal and 
multiplier assembly. 


Fig. I 


Detector Schematic 
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of which are arranged around the front end and one at the rear 
end of the cup, and the fifth views the front slab of the shield 
and an Am calibration source. In addition, a single photo- 
multiplier (RCA 4461) views a thin Nal(Tl) crystal (1/4"), which 
acts as a detector for low energy solar X-rays and low energy 
charged particles. The purpose of the detector is to provide 
data to be used for correlation purposes in the data analysis. 
Another PM tube (RCA70132B) views a calibration source Co^^ 

(see below) . 

The arrangement of the detector in the OSO wheel compart- 
ment (#9) is shown in Figure 2. Quadrants 1-4 give the various 
viewing aspects for the detector relative to the spacecraft sun 
line. These will be referred to again in the discussion of the 
experiment operation. 

Figure 3 shows the system functional block diagram. 

Basic scientific data is represented by; 

(1) the gamma ray spectrum from the central detector 

as measured by the 377 channel quadratic pulse height analyzer, 

(2) the X-ray spectrum over the energy range 7.5-120 
keV as measured by a four channel pulse height analyzer, 

(3) high energy neutron events occurring in the central 
detector as measured by pulse shape discrimination circuitry. 

Additional detector housekeeping data monitored is: 

(1) CsI(Na) front slab counting rates 

(2) CsI(Na) cup counting rates 

(3) . Central detector integral counting rates 
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Quad. 4 

(Alternate Background) 



Quad . 3 
(Background{f 


View from top at instant compartment C/L lies along 

sun line. 


Fig. 2 
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Calibration of the spectrometer and X-ray detector is 

60 

accomplished periodically by use of a Co source giving geunma 

lines at 1.17 and 1.33 MeV, and an Am^^^ source giving an X-ray 

line at 60 keV and iodine escape peak at 32 keV and possible 
237 

Np X-rays. Each of these sources consists of a scintillating 
material viewed by one of the photomultipliers. Since the gamma 
rays or X-ray? from the sources are coincident with the charged 
particles emitted by the sources, the calibration lines may be 
electronically rejected or selected. Electronic calibration 
signals are also provided. The calibration data appears on the 
normal data channels but is identified by an analog word ASSC 1-4 
and bits 5 & 6 in the MF status word. 

The assignment of scientific and housekeeping data is 
given in Section III and also Table I, Data Format, The assign- 
ment of commands is given in Table II. The command number 
assignment agrees with that given in the UNH interface pin 
list (Table 8-1, page 8-2 of the Preliminary Allocation and 
Performance Summary Data dated June 15, 1969). 



8 


TABLE I (A) 


Measurement 


Time 

resolution 


DATA ASSIGNMENT 


Energy and Item 


Readout 

Assignment 


Central 

Detector 


184 Sec. 377 ch, .3 to 9.1 MeV 
61 Sec. solar-background 
30 Sec. 121 ch, .3 to 9.1 MeV 
solar-background 
57 ch, .3 to 9.1 MeV 
solar-back ground 

I 


15 Sec. .3 to 9,1 MeV B 

.3 to 9.1 MeV S 


2 MF word (11,12) 



15 Sec. 


>9.1 MeV B 

>9.1 MeV S 


ASSC 

ASSC 


X-Ray 

Detector 



7.5-15 keV solar 
7.5-15 keV background 
15-30 keV solar 
15-30 keV background 
30-60 kev solar 
30-60 keV background 
60-120 keV solar 
60-120 keV background 


DSM 23 t 
DSM 29 t' 
DSM 47 t"^ 
DSM 9 t^ 
DSM 23 t* 
DSM 29 t 
DSM 47 t 


15 Sec. Quadrant Time - solar DSM 22 

Quadrant Time - backgrnd DSM 24 


30 Sec. Energy ID (Sync) -Low DSM 19 t 

Band (7.5-15,15-30 keV) * 

High Band (30-60, DSM 19 t 

60-120 keV) ' 


Central 

Detector 

Neutron 


Front Slab 


Cup “ C.P. 


200 Sec. 
50 Sec. 
25 Sec. 


15 Sec, 



> 50 keV 
>50 keV 


> 50 keV 
>50 keV 


solar 

solar 

solar 

background 

background 

background 


solar 

background 


2 MF Word (11,12) 

6 channels on 1 
8 bit word 




lSSC 

5 

lSSC 

9 


ASSC 

ASSC 
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Measurement 


Housekeeping 


TABLE I (B) 


Time 

Resolution 


Information 


Readout 

Assignment 


m X 15.36 sec 


1. Detector Temp 
. Electronic Temp 
. Central HVPS - Analog 
. Shield HVPS — Analog 


LVPS - Analog (l/5x20V) 

t command status 

magnetometer pulse enable 

auto radioactive source 
calibration 


ASC 2 t 


n 


1 . 


ID Status 

Command status 
- Scan Mode 


ACS 1 


Command status I 

- Quadrant and gain mode 


Command status 

“ Inflight calibration 
on /off , 

Command status 

- (2) HVPS on/off 

Command status 

- HV Programmer 
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TABLE II 


Command No . 

BBRC Pin No. 

When Affected 

Command 


{Connector 

09J02) 


Mode when power is 
turned on is under- j 
lined. ' 

1 

U 

EOS 

Quadrant (Normal/ | 

Alternate) 

2 

V 

EOS 

Scan (Full, Inter- | 

mediate. Short) 

3 

w 

EOS 

Calibrate (on or 
off) ,| 

4 

. X 

EOS 

Gain Change (XI i 

or X 1/3) 1 

5 

Y 

EOS if issued 
once, n steps 
immediately for 

Central HV Step 
(0 thru 63) 1 

6 

Z 

n+1 commands 

n steps if EOS interrupts command sequence 
Immediate Central HV 

(ON/OFF) 1 

7 

A 

Immediate 

Shield HV 

(ON/OFF) 1 

8 

B 

Immediate 

Auto Calibration 
( Inhib it /Active) I 

9 

C 

Immediate 

Magnetometer Pulse 
(Enable/Disable) | 

EOS - 

End of scan: 

at completion of readout of both 


solar and quadrant for MF data. 


All instrument circuitry predicated on single (non- 
redundant) pulses on command lines. 
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II. EXPERIMENT OPERATION 


The central detector measures the, energy spectra of gamma 
rays passing through, without interacting in, the thin front 
slab. The thicker cup absorbs a fraction of the gamma rays pro- 
duced within the spacecraft and also rejects a fraction of those 
gammas which merely scatter in the central detector. Both shields 
also reject charged particles. Gammas are recorded while the 
sun is within 4 5*^ of the compartment center line and similarly 
in the opposite direction for background comparison. An opening 
angle can only be defined in terms of the relative absorption 
of gammas in the thin front slab and thicker cup. A nominal 
value of 45^ can be used. 

The magnetic core memory is divided into two parts , so 
that one half can continuously record gamma rays of all energies 
while the other is being read out. When a readout is completed 
the roles of the two halves are reversed. 

The operation of the experiment in the various modes can 

now be described by references to Figures 1 and 3 and Tables 1 

and II. The various operational modes are: 

Normal Operation 
Night Operation 
Change Time Resolution 
Change Gain 
Change H.V. 

Quandrant Change 
Calibration 

Normal Operation : 

In the normal mode of operation the data assigned to the 
main frame, DMF, DSF, and ASC words are previously stored in 
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solar and background buffers, logarithmic count meters, or 
adaptive accumulators (see Figure 3) . Designation of an event 
in a given detector element for labeling as solar or background 
is determined first by the day azimuth aspect signal from the 
spacecraft. This signal is provided by the BBRC sun sensor 
as it sees the sun before the axis of our detector does (41.2°) . 
This signal goes to a quadrant generator which generates a signal 
identifying the quadrant the detector lies in. If an event 
occurs in the allowed quadrant interval (1 or 3) it is appro- 
priately recorded. 

The various data is accumulated for a time interval 
dependent on the telemetry sampling rate, and this determines 
the time resolution listed in Tables I and III. For example, 
in the normal mode the central detector gamma ray spectrum is 
analyzed with a 377 channel quadratic analyzer, and the spectrum 
is accumulated over a real time of 184.32 sec (duty cycle 25% 
due to wheel spin*** actual accumulation time is 46 sec. The 
quadrant time is monitored.) 

In the normal mode of operation similar remarks apply 
to all other data listed in Table 1. . 

Night Operation : 

The experiment is intended to operate continuously through 
the night; however, the quadrant generator is now controlled by 
either the night azimuth signal (gyro) or the magnetic aspect 
(magnetometer) signal. In the former case, an apparent sun 
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pulse is generated so the two quadrants during which data is 
accumulated correspond to directions away from the sun (into the 
night sky) and toward the sun (thus intercepting the earth) . 

If, for some reason, it is desired to^ change from the 
normally chosen gyro-signal to the magnetometer signal for the 
night reference, a magnetic pulse enable command would be acti- 
vated (see Table II) , The detector viewing direction with 
respect to the earth sun line will, of course, be different than 
in the former case. The status of this command is monitored in 
the MF status word and ASSC 2-6 . The day/night signal auto- 
matically causes the quadrant and generator to select the solar 
reference or night reference (which ever is enabled) signal. 

Change Time Resolution : 

The time resolution for obtaining the gamma ray spectrum 
may be reduced by using only a portion of PHA memory. Thus, 
by external command, time resolutions of 61.44 sec and 30.72 
sec are available (normally 184 sec, see Table I and III). The avail 
able channels in this mode sample certain selected portions of 
the spectrum. The status of this command is monitored by analog 
word ASSC 1-2 . 

Change Gain; 

The portion of the central detector spectrum analyzed 
may be selected by issuing a command which changes the gain of 
the central detector channel by 1/3. This is done by an appro- 
priate change of the high voltage. The status of this command 
is monitored by analog word ASSC 1-3 and the DMF status word 
(bit 10) . 



TABLE III 


DATA TIMING FORMAT 


TIME 

FRAME-SEC 

— 

MAIN FRAME 

DSM 

ASSC* 

FULL 

INTER 

SHORT 

1 15.36 


(B) 


(S+B >3 

^(S+B) 

2 30.72 

( 8)3 

^(S+B) 3 

3 46.08 

<B)^ 

iS)^ 

(B) 2 

(S+B ) 2 

^(S+B) 

4 61.44 

( 8 ) 2 

^(S+B) ^ 

5 76.80 

(B)j 

( 8)3 

( 8 + 8)3 

^ (S+B) ^ 

6 92.16 

(S)j 

^( 8 + 8 ) 3 ^ 

7 107.52 

i 

(S)j^ 

(S )2 

(B)4 

(S+B)^ 

^( 8 + 8)2 

8 122.88 

(S>4 

^(S+B ) 2 

1 

9 137.24 ! 

(B>3 

(B)j 

(S+B) g 

1 

^(S+B ) 2 

10 153.60 

( 8)5 

^ ( 8 +B ) 2 

11 168.96 

( 8)3 1 

* 1 


(S+B) 5 ■ 

^(S+B) 2 

12 184.32 

<S >6 

®(S+B) 2 


NOTE: B = BACKGROUND (ANTI SOLAR DATA) 

S = SOLAR 

*ASSC WORDS 1 & 2 SUBCOMMUTATED IN 6 FRAME CYCLES 

NOT NECESSARILY SYNCHRONIZED WITH DIGITAL OUTPUTS 
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High Voltage Change ; 

The operating high voltage on the central detector photo- 
multiplier may also be changed in increments by a step command* 
This voltage may be varied over approximately 200 volts in 64 
steps. The step reference is reported by ASSC 1-6 and an ana- 
logue reading of the voltage is given by ASSC 2-3. 

Quadrant Change t 

The viewing quadrants for the detector are normally 1 
and 3 (see Figure 2) . A change to quadrants 2 and 4 may be 
made on command. The status of the command is monitored by 
analogue word ASSC 1-3 and the DMF status word (bit 2) . 

Calibration Mode : 

Normally the instrument functions with the gamma ray and 
x-ray calibration lines electronically removed from the spectrum 
of the respective detectors. At the passage of the satellite 
from either night into day, or day into night, a radioactive 
source calibration is automatically initiated which lasts for 
three (3) minutes. Evidence for this operation is monitored 
on analogue word ASSC 1-4, and the DMF status word (bit 6) . 

This automatic calibration sequence may be removed by activating 
the auto calibrate inhibit command. 

A calibration sequence can also be initiated in real 
time by a calibrate on/off command to provide electronic and 
radioactive source calibration source data. Status of this 
command is monitored by analogue word ASSC 1-4, and the DMF 
status word (bits 5 and 6). 
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Emergency Operation ; 

In case of instrument or spacecraft difficulties, the 
following procedure should be followed: 

1. If there is corona or arcing, or if the analog data on 
ASSC 2-3 or ASSC 2-4 show excessive high voltage or 
unusually low voltage, then the two high voltage off 
commands should be issued. 

These alarm levels are: 

Voltage ASSC 2-3 

1500 <E <2200V for an EMR central detector 
o 

1500 <E <1900 V for an RCA central detector 
o 

ASSC 2-4 

1000<E <1500V for C70132B 
o 

2. If the instrument is stuck in the auto calibrate mode, the 
Auto Calibrate Inhibit command should be issued. If the 
instrument is in normal command calibrate mode, issuing 

a second command returns it to normal operation. 

3. Telemetry dropout; Turn off the high voltage automatically 
with the computer. If the high voltage is found not to be 
involved in such dropouts, this feature should be disabled. 
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Ill . DATA FORMAT 

In reporting this data format we will make the following 
assumptions : 

1. The primary use of this description will be during checkout 

at Ball Brothers. 

2. Ball Brothers has a computer which can receive key board or 

sense switch commands, and display various segments of 
the data we wish displayed. 

3. The data format should be that which makes the most sense 

to us as experimenters . 

For our instrument, the DMP, DSF, and ASSC data are inde- | 
pendent of each other, and so we will discuss them separately 
in the following. 

A. Main Frame Data ; 

Our primary data, that is the data from our Nal(Tl) detec- 
tor, comes out on main frame words 11 and 12. Data is taken in 
two quadrants, one centered on the solar direction and the other 
on the anti -solar direction. These are referred to as solar 
and background quadrants, respectively. There is a mode in which 
the two other quadrants are chosen instead of these. This is 
referred to as the alternate quadrant mode. The main portion 
of our data is essentially a readout of a pulse height analyzer. 
There are three time scales involved. There is the short scan 
in which the background and solar data is readout in approximately 
31 seconds; the intermediate scan, taking 61 seconds; and the 
full scan, taking 184 seconds. The speed of the I/O devices 
available at Ball Brothers will determine to some degree how 
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our data is displayed. For example, if a printer is available 
that can print approximately four (4) lines per second, our 
best display would probably be a histogram type graph. 

The formats for the full, intermediate, and short scans 
are shown in Figures 4, 5, and 6. The internal instrument 
word length is 12 bits. The main frame word length is 8 bits, 
the main frames 11 and 12 are linked together for a total of 
16 bits. The consequence is that instrument words are chopped 
up between main frame words 11 and 12; however, four instrument 
words fit into six main frame words or into three main frame 
cycles. Each scan, whether from background or solar quadrant 
begins with a 12 bit flag of one's. This is followed by a 
status word shown in Table IV. Bits 3 and 4 of the status 

word indicate the scan mode of the next data blobk to | 
be read out. The words following the status word give j 

the number of counts in each subsequent channel of the pulse 
height analyzer. In the intermediate and short scan modes not 
every channel of the analyzer is covered, just certain selected 
channels (Table V) . The last five instrument words in each 
quadrant readout give data on neutrons, dead time, and accumu- 
lation time for the pulse height analyzer. The two low order 
bits in the status word are the least significant bits for the 
dead time given in the fifth from the last word. For each 
quadrant readout, the status should be displayed in a mnemonic 
form, rather than just displaying bits. The number of counts 
in each channel should be displayed in decimal. If the printer 
is fast enough, a graphical display probably would be more 
easily interpreted. The number of counts in the three neutron 



Main Fraroe 
1 
2 

3 

4 

5 

6 
7 

282 

283 

284 
2 85 
286 
287 

__288_ 

289 

290 

291 

292 
29 3 

294 

295 

5 70 

571 

572 

573 

574 

575 

_^576_ 

1 

2 

3 


MAIN FRAME FORMAT - FULL SCAN* 


• MF 11. 






MF 12— >1 


BITS 

• • ♦ 5 . . . 9 . . , 13 . . 16 


FLAG 

STATUS 1 

STA 

TUS 

♦CHANNEL 1 

CH. 1 

CHANNEL 2 

CHANNEL 3 


CH. 4 

CHA 

NNEL 4 

CHANN 

lEL 5 

CH. 5 

CHANNEL 6 


y%/ 


CHANNEL 375 

CH. 376 

CHA 

NNEL 376 

CHANNEL 377 

CH. 377 

DEAD TIME 

NEUTRON 1 

N. 2 

NEUTRON 2 

NEUTRON 3 

N. 3 

PHA CLOCK TIME 

FLAG 

STATUS 

STATUS 

CHANNEL 1 

pH . 1 

CHANNEL 2 

CHANNEL 3 

CH. 4 

CHAI 

4NEL 4 

CHANNEL 5 

CH. 5 

CHANNEL 6 


BACKGROUND DATA 


ONE READOUT 
CYCLE (PS) 


^ SOLAR DATA 


CHANNEL 375 

CH. 376 

CHANNEL 376 

CHANNEL 377 

CH. 377 

DEAD TIME 

NEUTRON 1 

N. 2 

NEUTRON 2 

NEUTRON 3 

^ 

PHA CLOCK TIME 


* FOR ENERGY-CHANNEL ASSIGNMENTS 
SEE GAMMA CHANNEL TABLE 


FIGURE 4 



MAIN FRAME FORMAT - INTERMEDIATE SCAN 


Main Frame 
1 
2 

3 

4 

5 

6 
7 

90 

91 

92 

93 

94 

95 

— 

97 

98 

99 
100 
101 
102 
103 

186 

187 

188 

189 

190 

191 

192 

1 

2 

3 


MF 11 MF 12— >1 

BITS I 


1 • • • 5 . . . 9 . . . 13 . . 16 

FLAG STATUS 

STATUS 

♦CHANNEL 1 

CH. 1 

CHANNEL 2 

CHANNEL 3 

CH. 4 

CHANNEL 4 

CHAK 

INEL 5 

CH. 5 

CHANNEL 6 

i I 

1 _ 1 

CHANNEL 119 

CH. 126 

CHANNEL 120 

CHANNEL 121 

IcH. 121 

E 

tEAD TIME 

NEUTRON 1 

N. 2 

NEUTRON 2 

NEUTRON 3 

N. 3 

PHA CLOCK 

TIME 

FLAG 

STATUS 

STATUS 

CHANNEL 1 

CH. 1 

CHANNEL 2 

CHANNEL 3 

CH. 4 

1 CHANNEL 4 

CHANNEL 5 

CH. 5 

CHANNEL 6 

1 


CHANNEL 119 

CH. 120 

CHANNEL 120 

CHANNEL 121 

CH. 121 

DEAD TIME 

NEUTRON 1 

N. 2 

NEUTRON 2 

NEUTRON 3 

N. 3 

PHA CLOCK TIME 


* FOR ENERGY-CHANNEL ASSIGN- 
MENTS SEE TABLE V 


A ^ 


BACKGROUND DATA 


T ONE READOUT 
CYCLE (IS) 

A I 


SOLAR DATA 




FIGURE 5 
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MAIN FRAME FORMAT - SHORT SCAN 


Main Frames 

1 

2 

3 

4 

5 

6 
7 

42 

43 

44 

45 

46 

47 

49 

50 

51 

52 

53 

54 

55 

90 

91 

92 

93 
9 4 
95 

1 

2 

3 




ft/ 


MF 11 

. . 5 




MF 12 > I 

. 9 . . . 13 . . 16,' 


FLAG 

STATUS 

STATUS 

♦CHANNEL 1 

CH. 1 

CHANNEL 2 

CHANNEL 3 

CH. 4 

CHANNEL 4 

CHANNEL 5 

CH. 5 

CHANNEL 6 


CHANNEL 55 

CH. 56 

CHANNEL 56 

CHANNEL 57 | 

CH. 57 

DEAD TIME 


NEUTRON 1 

N. 2 

NEUTRON 2 

NEUTRON 3 

N. 3 

PHA CLOCK TIME 

FLAG 

STATUS 

STATUS 

CHANNEL 1 

CH. 1 

aiANNEL 2 

CHANNEL 3 

CH. 4 

CHANNEL 4 

CHANNEL 5 

CH. 5 

CHANNEL 6 


CHANNEL 55 

CH. 56 

CHANNEL 56 

CHANNEL 57 

CH. 57 

DEAD TIME 

NEUTRON 1 

N. 2 

NEUTRON 2 

NEUT] 

RON 3 

N. 3 

PHA CLOCK TIME 


* FOR ENERGY-CHANNEL ASSIGN- 
MENTS SEE Table V 


^ BACKGROUND DATA 


ONE READOUT 
CYCLE (S.S.) 


a? SOLAR DATA 


figure 6 
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TABLE IV, 

Main Frame - Experiment Words; 12 Bits. Total Experiment 
Words Per Cycle; 2 x 384 = 768 
MF Flag; 12 "IVs" 

MF Status: Si 1 Solar Data 

0 Background Data 

52 1 Normal Quadrant Mode 

0 Alternate Quadrant Mode 

53 & S4 S4 S3 


0 0 Full Scan Mode 

1 0 Intermediate Scan Mode 

0 1 Short Scan Mode 


S5 

1 

Electronic Calibration ON 


0 

Electronic Calibration OFF 

S6 

1 

Radiation Source Calibration ON 


0 

Radiation Source Calibration OFF 

S7 

1 

Day 


0 

Night 

S8 

1 

Magnetometer Reference 


0 

Gyro Reference 

S9 

1 

Charge Particle HVPS ON 


0 

Charge Particle HVPS OFF 

SIO 

1 

Gain = Times one 


0 

Gain = Times one third | 

Sll 

(dead time) 

Least significant bit 

S12 


Next least significant bit ^ 


Channel Data: Most significant bit FIRST 

Least significant bit LAST 
Channel 1 is lowest energy window 
Channel 377 is highest energy window 
PHA Live Time; 1 bit = [1/390.625] seconds x 8 Full S. 

2 Inter S . 
1 Short S. 

1 bit = 1.495 msec. 


PHA Dead Time: 



23 


TABLE V. 

Gamma Channels (in time of full scan channel numbers) 

Full Scan word no. Intermediate scan Short scan word no. 

word no. ^ 


1 

1 

1 

9 

2 

— 

17-33 

3-19 

2-18 

41 

10 

— 

49 

21 

19 

57 

22 

— 

65 

23 

20 

73 

24 

— 

81-97 

25-41 

21-37 

105 

42 

— 

113 

43 

38 

121 

44 

— 

129 

45 

39 

137-153 

46-62 

40-56 

161 

63 

57 

169 

64 


177 

65 


185 

66 


193 

67 


201 

68 


209 

69 


217 

70 


225 

71 


233-249 

72-80 


257 

89 


265 

90 


273 

91 


281 

92 


289-305 

93-109 


313 

110 


321 

111 


329 

112 


337 

113 


345 

114 


353 

115 


361 

116 


369-373 

117-121 
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channels should be displayed spearately, and the pulse height 
analyzer dead time and accumulation time should be scaled 
according to the appropriate factor, to be determined, and 
given in seconds. The University of New Hampshire has devel- 
oped Fortran and IBM Assembler Language programs which may be 
of some value in reformatting this data. 

B . DSF Data Format ; 

The basic format is shown Table VI. The DSF data is 
primarily concerned with the x— ray detector. The counts in 
each detection range, for example 7.5 to 15 keV background 
data, are not true counts, but counts compressed by an adaptive 
scaler. These counts may be decompressed according to the fol^ 
lowing function: 


s 


S < 95 


4 

(S-96) + 98 

96 < S < 

127 

16 

(S-128)+232 

12 8 < S < 

159 

64 

(S-160)+752 

160 < S < 

191 

256 

(S-192)+2784 

192 <S 



Where C is the corrected count number and S is the value 
of the scaler. 

The appropriate scale factor for the quadrant time 
(accumulation time for the x-ray scalers) will also be provided. 

C. Analog Subcom Data Format : 

The basic formats are shown in Tables VII, VIII, and IX. 
The University of New Hampshire is assigned analog subcom words 
1-10. We have sub-subcomed analog words 1 and 2. Analog subcom 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

1 

2 

3 


TABLE VI 
DSF DATA FORMAT 


DSM WORD NO. (MF 1?) 


19 


22 


23 

7.5-15 

24 


29 

7.5-15 

47 

15-30 

9 

15-30 

19 


22 


23 

30-60 

24 


29 

30-60 

47 

60-120 

9 

60-120 


Energy ID (Low) all zeros (0) 

Quadrant Time - Solar 

keV data - Solar 

Quadrant Time - Background 

keV Data - Background 

keV Data - Solar 

keV Data - Background 

Energy ID (High) all ones (1) 

Quadrant Time - Solar 

keV Data - Solar 

Quadrant Time - Background 

keV Data - Background 

keV Data - Solar 

keV Data - Background 


Low Energy ID (7.5’-30) All 0*3 
High Energy ID (30-60 keV) All I's 

Complete x-ray cycle takes two DSP cycles or 31.32 seconds. 
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TABLE VII, 
A3SG DATA FORMAT 


ASSC Word (MF 1) 


1-1 

2 

3 

4 

5 

6 

2-1 

2 

3 

4 

5 


Sync 

Scan Mode 

Quadrant and Gain Mode 
IFC ON/OFF 
HVPS's ON/OFF 
HVPS Programmer Step 


BBRC Pin No. 
(connector #09J01) 

M 


COMMAND 

STATUS 


Detector Temperature 
Electronic Temperature 
Central HVPS Analog 
Charged Particle HVPS Analog 
LVPS Analog 


N 


HOUSEKEEPING 
AND COMMAND 
STATUS 



6 

Mag 

Pulse 

Enable 



3 

Y . 3 to 

9.1 

MeV 

Background 



4 

Y > 9.1 

MeV 


Background 


• • • • w 

• • ■ • R 

5 

CP Slab 



Background 


.... S 

6 

CP Cup 



Background 


. • « ^ T 

7 

Y .3 to 

9.1 

MeV 

Solar 


■ • « • 4. 

n 

8 

Y > 9.1 

MeV 


Solar 


• • • • w 

9 

CP Slab 



• 

Solar 


• 9 * • V 

10 

CP Cup 



Solar 


.... X 
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T^iBLE VIII . 

AS SC DATA SUMMARY - AS SC 1-n 
CO*^LMAND STATUS 


n 

1. FLAG (ID Sync) 5.0 volts 

2. SCAN MODt. (00) Pull Scan = ,05 volts 

(10) Intermediate Scan =0.9 volts 
. (01) Short Scan = 1.8 volts 


3, QUADRANT AND GAIN MODS 


) 

Quadrant 

Gain 

"~1 

Output 

' 

(0) Alternate 

(0) Times 1/3 

0.05 V 

( 1) Normal 

(0) Times 1/3 

0.9 V 

CO) Alternate 

(1) Times 1 I 

1.8 V 

1 (1) Normal 

1 

(1) Times 1 

! 2.7 V 


4. IFC MODE (00) IFC OFF = 0.05 Volts 

(10) Electronic Calib. = 0.9 Volts 
(01) Radiation Source Calib. = 1.8 Volts 


5. 


6 . 


KVPS MODE 


Central HV?S 

Charge Part. HVPS 

Output 

0 OFF 

0 OFF 

0,05 

1 ON 

0 OFF 

0.9 

0 OFF 

1 ON 

1.8 

1 ON 

1 ON 

2.7 


KVPS REFERENCE 64 steps 


Gain X 1/3 
Gain X 1 


0.000 

1.500 


- 2.112 

- 3.162 




33 mv/step 


I 
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TABLE IX. 

ASSe DATA SUMMARY - ASSC 2-n 
HOUSEKEEPING 


n 


1. 

Temperature Detector 

+50®C = 

1.55 

V 

( nominal ) 



n 

u 

0 

o 

3.25 

V 

(nominal ) 

2. 

Temperature - Electronics 

r 

u> 

o 

0 

O 

II 

4.27 

V 

(nominal ) 

3. 

Central HVPS Analog - 4 V 

estimate 





4. Charged Particle HVPS Analog *4 V estimate 

5 . LVPS Analog 1 - 20 V -f 5 « 4V 

6. Magnetometer Aspect Pulse Enable and Auto Radio- 
active Source Calibration Inhibit 


AUTO RS CAL. 

MAG. ASPECT 

OUTPUT 

OFF 

OFF 

0.05V 

ON 

OFF 

0.9 

OFF 

ON 

00 

• 

ON 

ON 

2.7 
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word 1 displays a flag word valid for both ASSC words 1 and 2f | 
and various command status words. ASSC 1-2, 1-3, 1-4 contain | 

redundant information also given in the MF status word. For 
analog subcom word 2, the first two sub-subcom words give tem- 
perature information, words 3 and 4 give analog information for 
the two high voltage power supplies, word 5 monitors the low 
voltage power supply, and word 6 indicates the command for auto 
RS calibration and magnetometer aspect pulse enable. Analog 
subcom words 3-10 monitor counting rates in various parts of the 
instrument. Calibration graphs will have to be provided for voltage 
versus counting rate for these various rates. This will be done 
experimentally during calibration of the instrument. 

Calibration Formats : 

For both the command calibration and automatic calibration 
operations the commands are held up until the completion of a 
readout. The calibration sequences were designed for the full 
scan mode and therefore should be normally initiated only in that 
mode . 

The command calibration initiates an electronic calibra- 
tion sequence, lasting 184 seconds, during which time discriminator 
thresholds are tested with pulses of various voltages. The number 
of pulses differs for each test voltage so they may be distin- 
guished in the spectral readout. The input pulse rates and their 
relation to the discriminator settings are summarized in Table X. 

Table XI illustrates the outcomes for testing the central 


detector electronics 



TABLE X 


ELECTRONIC IFC TIMING (PULL SCAN) 

EOS 

« 15 sec ^ I 


1 

i 

2 

) 

! 3 

4 

\ 

* 5 

6 

7 

N 

i 

N 

* 1 

* 

* 

I 

N 

! N 

9.1+MeV 

0. 3-MeV 

0 . 3+MeV 

1.0 MeV 

9.1-MeV 

9.1+MeV 

0 . 3-MeV 

781 cps 

48 cps 

6.25 kc 

781 cps 

48 cps 

6.25 kc 

781 cps 


T 

6.25 kc 
N 


U 

N 


L 

* 


4 * 

Definitions : 


T 

781 cps 
N 


T 

100 kc 
N 


T 

6.25 kc 
N 


T 

781 cps 
N 


T' 

100 kc 
* 


7.5-15 15-30 30-60 60-120 7.5-15 15-30 30-60 ^60-120 7.5-15 

,+ . + 


T 

6.25 kc 
* 

i 


15-30 30-60 .60-120 7.5-15 15-30 


N 


N 


AG = Energy Window 
T = Threshold of Cup or Slab 
* = System Data Acceptance 
N = System Data Not Accepted 
+ = + 10% (nom. ) 

- = - 1-0% (nom.) 


U 

* 


L 

N 


N 


N 


U 

* 


L 

N 


N 


N 


U 

N 


t L 
' N 

' (Coinc 
Re- 

1 

' ject) 


4 8 Hz 


N 


N 


V^O = Test Voltage for Cup/Siab 

U = Upper Discriminator Threshold for X-ray Detector 
Attenuated for Given Range 
L = Lower Discriminator Threshold for X-ray Detector 
Attenuated for Given Range 
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8 : 

i 

9 

! 10 

11 

12 

CYCLE NUMBER 

N (coinc. 

N {coinc. 

* 

N 

N 

■* 

reject) 

0.3+MeV 

reject) 
1 . 0 MeV 

9 . 1-MeV 1 

9.1+MeV 

0.3-MeV 

MAIN CHANNEL 

48 cps 

6.25 kc 

781 cps 

4 8 cps 

6.25 kc 


_ + 





- 

T 

T 

T 

t" 

T~ 


781 cps 

100 kc 

6.25 kc 

781 cps 

100 kc 

CUP/SLAB 

* 

* 

N 

N . 

N 


..... . ^ j 

1 30-60 ! 60-120: 

( 

7.5-15 '15-30 

i • 1 

bo-60 ^60-120 

i 

7.5-15 ' 15-30 

i f 

|30-60 ; 60-120 , 

X-ray at 6.25 kc for 

1 

t 

, 1 

; [ 

i 

all cases 

^ : 

N f N ; 

u“ ' l" 

1 


u“ l" 

i 

f 

f 

1 

relation to discrim- 

N f N 

t 

In : n 

i 

; * ^ N 

, N r N r 

inator setting 

1 ■ ^ j 

1 ; ! 

(Coinc ( 

i f 

j i 

i ) 

i 

i :■ 

s 


Re- : 

t i 

1 } 

i 1 i 

i 


: 1 : 
5 z 

ject) II 


1 

. 1 

i - > 

r i 


1 — j. 

^ 1, 

t 

i • . . » . : 

neutron channel two ^ 

i 1 

V f 


! 

1 

j 

J 

(20 to 30 MeV Channel 

1 ^ ! 

N 

i * 

1 * 

i 

1 * ] 

1 \ 

48 cps all cycles 



J 

{ 

i 



EOS = Leading Edge of DMF Word 32 , following WASC 

Word 48 and Last DMF Words 11, 12 which output 
Solar Data 



TABLE XI. 

j^IN FRAME ELECTRONIC rHEPTf 
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Nominal 

Channel 

Nominal 

Energy 

Approximate 
no. of pulses 
generated 
X-1/4 

Exact * 
Equation 

Interpretation if | 

observed 

-3 

.270 kev 

2577 (OV6) 

7079*T 

Lower threshold set 
too low 1 



+ 3000 



6 

.330 kev 1 

3520 (OV5) 

6250*T 

Normal (lower threshold 

not. too hSrrh^ 



+ 3000 

629 P.T 
4 

Coinc. reject may not 
be operating 

70 

1.0 MeV 

2999 + 360 

781*T 

■Normal (1 MeV location) 



4119 (OV5) 
+ 3000 

7031*T 

Coincidence's reject 
not working 

354 

8.19 MeV 

3183 + 415 

829*T 

Normal (upper threshold 
not too low) 

400 

10.0 MeV 

2577 (OV6) 

+ 3000 

J 

7079*T 

I Upper threshold set 
too high 


Counts have overflowed scaler n times. 


T = clock time 
-* to be calculated modulo 4096 


T = 15.36 for each cycle. 
4 


J 
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The cup and slab thresholds and log rate meters for cup, 
slab, and central detectors are tested in 15.36 second seg- 
ments; that is, the test frequencies are changed after every 
48 ASSC words. The expected rates are given in Table XII. 
"Cycle number" indicates which group of 48ASSC words the ex- 
pected rate is to be found in. Counts inASSC 3-10 in any 
cycles other than indicated are anomalous and should be 
printed out for diagnosis. 

The twelve cycle group will start immediately after a 
solar quadrant has been read out if a command has been issued. 
To be specific, the calibration command is executed at the 
6*^9® of the DMF sync (i.e. the end of DMF word32) 
following the readout of solar clock time. The twelve en- 
suing 15.36 second intervals constitute the cycle group 
referred to. This should allow the calibration sequence to 
be identified in real time. The sequence may always be identi 
fied retrospectively from the data. 

The circuitry for the X-ray detector consists of an 
upper and lower discriminator preceded by a variable at- 
tenuator which is stepped to give various energy ranges. 

The disc thresholds are checked with pulses + 10% above and 
below their nominal values. Table XIII shpws the only places 
which should contain data. 

The radioactive calibration format is handled as 
routine data. 
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TABLE XII 
COUNT RATE CHECK 


ASC CYCLE # 


B - Background 
S - Solar 

cycle # explained in text 


ASC # 

FUNCTION TESTED 

EXPECTED VOLTAGE 
RATE (48 Hz) 

(781 Hz) 
V 

(6.25k Hz)] 
y 

(100k Hz) 
V 

* ■ « 

1 

1 

3 

gaimtia rate (,3-9)B 

5 

4, 10 

3 

— 

7 

gairana rate (.3-9)S 

5 

4, 10 

3 

! 

4 

gamma rate (>9)B 

11 

1 

6 

i 

i 

! 

8 

gamma rate (>9)S 

11 

1 

6 

— 

5 

slab rate B 



8 

7 

6, 10 

9 

slab rate S 

— 

8 

7 

6, 10 

6 

cup rate B 

— 

8 

7 

6, 10 

10 

cup rate S 

— 

8 

7 

6, 10 



TABLE XIII 


Cycle # 

1 

3* 5, 11 


RAY CHANNELS WHICH SHOULD CONTAIN DATA 

^ Description 

9 15-30 “keV B 

47 15-30 S 

23 7.5-15 . S 

7,5-15 B 


29 
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IV, SPECIAL HANDLING REQUIREMENTS 

The instrument will be packed in a special case for 
transport to BBRC and ETR. It should be handled as a delicate 
scientific instrument. During storage the case will be flushed 
and pre,ssured slightly above ambient with dry nitrogen. The 
temperature and humidity restrictions are: 

< 40% relative humidity 

< 10°C per hour temperature rate of change 


V. ENVIRONMENTAL REQUIREMENTS 

Even though the instrument is sealed, it has not been 
designed for high humidity. The scintillation crystals are 
hygroscopic so it is desirable to limit high humidity and 
direct water exposure to the instrument. 

The detector should be kept in an environment with rela** 
tive humidity of less than 40% at all times. 

The detector should not see a temperature change of more 
than lO'^C/hour. Therefore, prudence should be used in tests 
at the magnetics building and the open solarium. This figure 
for the temperature changes is that recommended by Harshaw 
Chemical Company for the NaI{Tl) central detector. The thermal 
inertial of the complete assembled detector may modify this 
figure for the instrument as a whole. This can be determined 
during testing since the temperature of the central detector 
is monitored by ASSC 2-1, 

At ETR the humidity in the compartment could be controlled 
by circulating dry N^ around the instrument. 
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VI. SPECIAL TEST REQUIREMENTS 

Gamma ray angular distribution measurements will be required 
when all experiments are in spacecraft. See also VII and VIII. 

VII. ALIGNMENT REQUIREMENTS 

Alignment of front slab cover to be perpendicular to com- 

O 

partment center line to 1/2 is adequate. 

VIII. RADIOACTIVE SOURCE REQUIREMENTS 

We need small (1 to 10 yc) sources to verify operation of 
our detector during tests. Also we would like to measure the 
spacecraft attenuation using a strong source and rotating the 
spacecraft in both pitch and azimuth. This should be done with 
a full complement of instruments. 

A possible method of checking the quadrant generator is 
shown in Figure 7. A quadrant signal will also be available 
from the instrument. This will more probably be used. 

In addition the instrument contains two permanently mounted 
sources, Am^*^^ and Co^^. The strength of each is approximately 
0.02 yc. 

A long run with the instrument supported externally, but 
located in the spacecraft compartment should be made. The space- 
craft should be wheeled away and the background subtracted. This 
will give some information about the activity of the spacecraft 
itself. 


! 
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IX. HIGH VOLTAGE OPERATION REQUIREMENTS 

Instrument will operate at atmospheric pressure. In 
vacuum testing the high voltages should be turned off during 
pump down. 

X. SQUIB REQUIREMENTS 


None 
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XI. TEST PROCEDURES AT BBRC 
1. Exercise of Commands 

Each command should be exercised singly. Combinations 
and permutations test the internal system logic and are not 
likely to cause problems in the s/c command transmission channe|.s« 


Command 

Quadrant 


Gain change 


Verification 

Repositioning of source if s/c 

is spinning and print out of 

spectrum^ or observing electronic 
quadrant signal from instrument. 

Printout of spectrum and status 

(ASSC 1-3) 


Magnetometer pulse Enable 


Repositioning of source and dummy 
magnetic pulses (e.g. 90® to 
gyro signal) 


Mode Command 


Printout of spectrum 


Calibration on/off 


Printout of spectrum, DSM, and 
ASC 


HVPS step command Issue command n times. Print 

spectrum housekeeping 
before and after 

Print spectrum and housekeeping 

Print spectrum and housekeeping 
before and after 

Auto R.S. Calibration Inhibit Print Spectrum 

2. Some sort of source testy turn HVPS pff and run for long 
time. (Other EE type tests?) Spin rate at minimum and maximum. 


- HVPS on/off command 
Shield HVPS on/off 
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